|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: .txt lesen/schreiben
13. Mär 2008, 09:04
Delphi-Quellcode:
procedure TForm1.btn_einClick(Sender: TObject);
begin
datei := TStringList.Create;
nachricht := edt_nachr.Text;
try
//erstmal das alte File laden, falls vorhanden
if FileExists('notiz.txt') then
datei.LoadFromFile('notiz.txt');
datei.Add(nachricht);
datei.SaveToFile('notiz.txt');
finally
datei.Free;
end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|