Delphi » FAQ

Jak dopisać do pliku kilka linii

Adam Boduch

2002-10-02 16:14:10
2006-08-03 17:27:13
2 komentarze
1651 odsłon

Kopiuj

var
  TF : TextFile;
begin
  AssignFile(TF, 'Nazwa pliku.txt');
  Append(TF);
    Writeln(TF, 'Moja strona w Internecie:');
    Writeln(TF, 'http://4programmers.net');
  CloseFile(TF);
end;

FAQ

2 komentarzy

kromp12
• 2005-06-07 12:19

uses classes;
var List:TStringList
begin
List:=TStringList.Create;
List.LoadFromFile('c:\temp\file.txt')
List.Add('To zajac poziomka');
List.Add('A to mis uszatek');
List.SaveToFile(''c:\temp\file.txt');
List.Free;
end;

O tyle dobrze ze program sie nie wysypuje gdy nie ma pliku *.txt
Poza tym TStringList ma wiele ciekawych funkcji ulatwiajacych prace .....
Z powazaniem
Kromp12

ziolas
• 2006-03-12 21:00

Można jeszcze dodać coś do już istnejącego tekstu za pomocą Insert
np. Insert('tekst który chcemy wstawić',NrLinii, PozycjaOdKtórejZaczynamyWstawiaćTekst);