Programowanie w języku Delphi » FAQ

2 komentarze

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);