Hab’s jetzt mal mit noch ner StringList probiert, aber ist natürlich ein wenig billig gemacht (aber es funktioniert zumindest schon mal annähernd so wie ich das will)
Ich denke aber mal, dass ich da irgend wann Probleme mit dem
temp.LoadFromFile(pfad);
bekommen werde, da es ja auch immer mehr Text wird welcher geladen werden muss.
Da würde schon mal mein Programm immer langsamer und was ist wenn der Arbeitsspeicher nicht mehr ausreicht???
Zumal hat ein Memo ja auch eine begrenzte Anzahl von Zeichen (habs mal ausprobiert, waren ca. 56511)
Also Ihr seht, keine perfekte Lösung, aber ein Ansatz.
Vielleicht habt Ihr ja noch ne zündende Idee.
Delphi-Quellcode:
if form1.Memo1.Lines[0]=''
then
begin
Form1.Memo1.Clear;
exit;
end;
pfad:='D:\memo.txt';
temp:=TStringList.Create;
if not fileexists(pfad)
then
begin
temp.Clear;
temp.SaveToFile(pfad);
end;
temp.LoadFromFile(pfad);
temp.Add('['+datetimetostr(now)+']');
temp.Add(memo1.Text);
temp.Add('');
temp.SaveToFile(pfad);
memo1.Clear;
temp.Clear;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]