Für jeden Tag eine Datei erzeugen

[Mirco]

Hallo
Stimmt, am besten wird gleich in die aktuelle Tagesdatei geschrieben.
Wie funktioniert das mit deiner procedure AddToLog(S: String); ?

Hab dein Bespiel ausprobiert, wird da auch gleich in die Datei geschrieben?
Ach ich kriegs trotz der vielen Beispiele nicht hin, er schreib nicht während das Programm gestartet ist in die Datei.
Ich versteh vieles noch nicht, z.B.  Then Append(T) Else Rewrite(T); und OldTime := Trunc(Now); Das hab ich ausprobiert

Delphi-Quellcode:

var
  Form1: TForm1;
  OldTime: TDateTime;

implementation

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldTime := Trunc(Now);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var T: TextFile;
  FileName: String;
begin
If Trunc(Now) > OldTime Then Begin
  FileName := GetMemoFileName;
  AssignFile(T, FileName);
  If FileExists(FileName) Then Append(T) Else Rewrite(T);
  Write(T, Memo1.Lines.Text);
  CloseFile(T);
  Memo1.Lines.Clear;
  OldTime := Trunc(Now);
End;

procedure TForm1.FormDestroy(Sender: TObject);
var T: TextFile;
  FileName: String;
begin
  FileName := GetMemoFileName;
  AssignFile(T, FileName);
  If FileExists(FileName) Then Append(T) Else Rewrite(T);
  Write(T, Memo1.Lines.Text);
  CloseFile(T);
end;

end.