Für jeden Tag eine Datei erzeugen

[Mirco]

Hallo

Dein Beispiel funktioniert super, Danke nochmal.
Eine Frage habe ich noch, kann es sein das der Inhalt vom alten Tag in die Datei des neuen Tages geschrieben wird, oder täusche ich mich?
Kann auch gespeichert werden während das Programm läuft und nicht nur wenn es beendet wird?
Viele Grüße
Mirco

Delphi-Quellcode:

var
  Form1: TForm1;
  Var OldFileName,NewFileName, FileName : String;

implementation

{$R *.dfm}
function GetMemoFileName: string;
begin
  Result := 'FilePrefix_' + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 // OnCreate/Programmstart:
OldFileName := GetMemoFileName;
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := GetMemoFileName;
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
  Memo1.Lines.SaveToFile(NewFileName);
  Memo1.Lines.Clear;
  OldFileName := NewFileName;
End;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FileName := GetMemoFileName;
Memo1.Lines.SaveToFile(FileName);
end;

end.