Moduły » System

Append

  • 2010-10-31 18:27
  • 0 komentarzy
  • 314 odsłon
  • Oceń ten tekst jako pierwszy
Append
Moduł: System

procedure Append(var F: Text);

Procedura otwiera istniejący plik i ustawia kursor na jego końcu; dzięki temu program jest w stanie zapisywać dane na końcu pliku.

Przyklad:
procedure TForm1.Button1Click(Sender: TObject);
var
  TF: TextFile;
begin
  AssignFile(TF, 'C:\text.txt');
  Rewrite(TF);
  WriteLn(TF, 'Zapis do nowego pliku!');
  CloseFile(TF);
  Append(TF);
  WriteLn(TF, 'Troche dodatkowego tekstu!');
  Flush(TF);
  CloseFile(TF);
end;


Zobacz też: