append

[subsonic]

как дописать в файл?

[Kostia]

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
begin
  assignfile(f,'filename.txt');
  append(f);
  writeln(f,'Привет!');
  closefile(f);
end;

[subsonic]

Сообщение от Kostia

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
begin
  assignfile(f,'filename.txt');
  append(f);
  writeln(f,'Привет!');
  closefile(f);
end;

Спасибо, удачи....