Delphi-Quellcode:
// globale Variable
Var OldFileName: String;
// OnCreate/Programmstart:
OldFileName := 'irgendwas' + DateToStr(Now) + '.txt';
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);
// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := 'irgendwas' + DateToStr(Now) + '.txt';
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
Memo1.Lines.SaveToFile(NewFileName);
Memo1.Lines.Clear;
OldFileName := NewFileName;
End;
// beim Programmbeenden
FileName := 'irgendwas' + DateToStr(Now) + '.txt';
Memo1.Lines.SaveToFile(FileName);
[add]
och menno, da war ja wer schneller
Na ja, eigentlich würde ja och sowas
If NewFileName <> OldFileName Then Begin ausreichen, aber wenn wer an der Zeit spielt, dann könnte es zu problemen kommen und selbst wenn nicht .. ich sag nur Zeitumstellung.
LoadFromFile in onCreate eingefügt, falls das Programm am selben Tag mal beendet/neu gestartet wird.
Und den Abschnitt "beim Programmbeenden" angefügt, damit beim Programmende nichts verloren geht.