Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
NikolaAArn
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 6
1

Не могу понять.(Создать программу которая создает файл из неопределенного количества типа integer)

27.06.2011, 17:39. Просмотров 615. Ответов 3
Метки нет (Все метки)

Тут задача мне была задана"Создать программу которая создает файл из неопределенного количества типа integer " я сделал так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
Var
    f:System.Text;
begin
AssignFile(f,'D:\Rgz\1.txt');
Rewrite(f);
CloseFile(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
    i,z:integer;
    f:System.Text;
begin
AssignFile(f,'D:\Rgz\1.txt');
randomize;
Reset(f);
begin
for i:=1 to 10 do
z:=Random(999);
Writeln(f,inttostr(z));
end;
CloseFile(f);
end;
end.
вот. И он выдает ошибку как сделать так, чтобы он случайное количество случайных чисел вносил в файл???
спасибо зараннее)
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку "DELPHI".
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2011, 17:39
Ответы с готовыми решениями:

Составьте программу, которая создает файл, состоящий из пяти значений типа real
Составьте программу, которая создает файл, состоящий из пяти значений типа...

не получается создать программу которая создает файл
Нужно создать программу которая создает файл RANDOM1.DAT, состоящей из 50...

Создать файл, состоящий из 10 значений типа integer. Прочитать файл и вычислить сумму его элементов
Создать файл, состоящий из 10 значений типа integer. Прочитать файл и вычислить...

Создать файл, состоящий из 20 значений типа integer. Прочитать файл, заменив компонент с номером 15 присвоив ему значение 99.
Создать файл, состоящий из 20 значений типа integer. Прочитать файл, заменив...

составить программу которая создает файл
итак, сел разбираться с делфи, мне нужно создать программу, которая создает...

3
igoriy
871 / 542 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
27.06.2011, 17:53 2
ResetОткрывает текстовый файл для чтения, или двоичный файл для чтения/записи
В нашем случае нужен Append
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
 Var
 i,z:integer;
 f:System.Text;
 begin
 AssignFile(f,'D:\Rgz\1.txt');
 randomize;
 Append(f);
 begin
 for i:=1 to 10 do
 z:=Random(999);
 Writeln(f,inttostr(z));
 end;
 CloseFile(f);
 end;
1
NikolaAArn
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 6
27.06.2011, 18:49  [ТС] 3
сасибо большое...

Добавлено через 7 минут
Все сделал) Если каму надо выкладываю код)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
 Var
 i,z:integer;
 f:System.Text;
 begin
 AssignFile(f,'D:\Rgz\1.txt');
 randomize;
 Append(f);
 repeat
 begin
 z:=Random(1000);
 Writeln(f,inttostr(z));
 end;
 until z=999 ;
 CloseFile(f);
 end;
end.
Добавлено через 38 минут
А вот еще вопрос (я поискал, но что-то не нашел ответ) как содержимое полученого файла на экран вывести?
0
igoriy
871 / 542 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
27.06.2011, 19:02 4
Delphi
1
Form1.Memo1.Lines.LoadFromFile('D:\Rgz\1.txt')
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2011, 19:02

Как создать программу, которая создает другие программы
Добрый день. Есть программа для создания тестов, по именем TestMain. Она...

Составить программу, которая создает и выводит на экран файл
Составьте программу, которая создает и выводит на экран файл AVANS.DAT,...

Составить программу, которая создает и выводит на экран файл.
Помогите пожалуйста сделать задачу, которая заключается в следующем ->...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru