Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
NikolaAArn
0 / 0 / 0
Регистрация: 27.06.2011
Сообщений: 6
#1

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

27.06.2011, 17:39. Просмотров 588. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не могу понять.(Создать программу которая создает файл из неопределенного количества типа integer) (Delphi):

Составьте программу, которая создает файл, состоящий из пяти значений типа real - Delphi
Составьте программу, которая создает файл, состоящий из пяти значений типа real. Тип record не используйте. Выведите файл на экран. В...

не получается создать программу которая создает файл - Delphi
Нужно создать программу которая создает файл RANDOM1.DAT, состоящей из 50 случайных цифр типа integer в диапазоне 0...200. После создания...

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

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

составить программу которая создает файл - Delphi
итак, сел разбираться с делфи, мне нужно создать программу, которая создает фаил RANDOM1.DAT, состоящий из 50 слуйчайных цифр типа iteger в...

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

3
igoriy
871 / 542 / 19
Регистрация: 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 / 19
Регистрация: 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
Привет! Вот еще темы с ответами:

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

написать программу которая создает файл содержащий действительные числа и находит сумму - Delphi
написать программу которая создает файл содержащий действительные числа и находит сумму наибольшего и наименьшего из чисел ,содержащихся в...

Написать программу, которая создает, редактирует, перезаписывает, удаляет текстовый файл и производит поиск - Delphi
В программе должно быть комментарии в тексте программы и сделать очистку всех объектов ввода текстовой информации. Окно программы должно...

Создать программу, которая в зависимости от величины N (количество строк)и М (количество столбцов) создает мат - Delphi
Создать программу, которая в зависимости от величины N (количество строк)и М (количество столбцов) создает матрицу размером NxM. Программа...


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

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

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