Einfach nur da eintragen, wo ein Dateiname erstellt wird.
Code:
// globale Variable
Var OldFileName: String;
// zusätzliche Funktionen:
[color=#ff001f]function GetMemoFileName(const ABaseName: string; ADateTime: TDateTime): string;
begin
Result := ABaseName + '_' + FormatDateTime('yyyy-mm-dd', ADateTime) + '.txt';
end;[/color]
// OnCreate/Programmstart:
OldFileName := [color=#ff0000]GetMemoFileName[/color];
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);
// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := [color=#ff0000]GetMemoFileName[/color];
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
Memo1.Lines.SaveToFile(NewFileName);
Memo1.Lines.Clear;
OldFileName := NewFileName;
End;
// beim Programmbeenden
FileName := [color=#ff0000]GetMemoFileName[/color];
Memo1.Lines.SaveToFile(FileName);