проблема с заданием паскаль/делфи (pascal/delphi)

Question

как дописать рандомные целые числа в текстовый файл

procedure TForm1.Button1Click(Sender: TObject);

Var

b:array [1..100] of Integer;

a:TextFile;

i:Integer;

begin

randomize;

AssignFile(a,'D:	\file1.txt');

Reset(a);

Read(a);

append(a);

for i:=1 to 100 do begin

b[i]:=Random(50);

Memo3.Lines.add(inttostr(b[i]));

write(i,'D:	\file1.txt');

end;

Memo1.Lines.LoadFromFile('D:	\file1.txt');

CloseFile(a);

Memo2.Lines.LoadFromFile('D:	\file1.txt');

end;

end.

М Куз · Accepted Answer

Reset(a);
Read(a);
append(a);

Что это за ересь?

И вообще, используй для работы с текстовыми файлами TStringList - ведь ты уже делаешь это в своих Memo. Вот и продолжай в том же духе: читай файл в TStringList, дописывай в него свои циферки и снова записывай TStringList в файл.

Алексей Перелетов · Answer

посмотри эту программу, запись рандомных чисел в файл
program spisoks;
uses crt;
const namebd='bd.txt';
type spisok=record
n:integer;
end;
var
 k,y:integer;
 tbl:array[1..100] of spisok;
 f:Text;
 w:spisok;
 z:char;
 procedure Make;
var l:string; i,n:integer;
 begin
 clrscr;
writeln('создание файла');
 assign(f,namebd);
 rewrite(f);
 z:='y';
 while z='y' do begin
 with w do begin

n:=random(51)-25;

writeln(f,w.n);
 end;
 writeln('запись добавлена');
 writeln('уще добавить? (y/n)');
 readln(z);
 end;
 writeln('задание закончено');
 close(f);
 writeln(' Нажать Enter.');
 readln;
 end;
 procedure show;
var i:integer;
begin
writeln('просмотр файла');
 assign(f,namebd);
 reset(f);
writeln(' N ');
 i:=0;
 writeln('---------');
while not eof(f) do
 begin
inc(i);
readln(f,w.n);
 writeln(' ',w.n);
 end;
 readln;
 close(f);
 end;
BEGIN
k:=0;
repeat
clrscr;
writeln(' menu');
writeln('1.запись');
writeln('2.чтение');
writeln('6.выход');
writeln('---------------------------');
write('Выбрать действие: ');
 readln(y);
 case y of
 1:Make;
 2:show;
 6:;
 else begin gotoxy(10,10);write('error'); readln; end;
 end;
until y=6;
END.