Für jeden Tag eine Datei erzeugen

[Mirco]

Hallo

Nochml Danke für die ganzen Codes.
Muss aber sagen das ich nun etwas verwirrt bin, deshalb habe ich das Beispiel genommen:

Delphi-Quellcode:

// globale Variable 
Var OldFileName: String; 

// zusätzliche Funktionen: 
function GetMemoFileName(const ABaseName: string; ADateTime: TDateTime): string; 
begin 
  Result := ABaseName + '_' + FormatDateTime('yyyy-mm-dd', ADateTime) + '.txt'; 
end; 

// OnCreate/Programmstart: 
OldFileName := GetMemoFileName; 
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName); 

// 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; 

// beim Programmbeenden 
FileName := GetMemoFileName; 
Memo1.Lines.SaveToFile(FileName);

bekomme eine Fehlermeldung bei
OldFileName := GetMemoFileName; [Fehler] Unit1.pas(72): Nicht genügend wirkliche Parameter

Ich hab noch nicht ganz verstanden wie das funktioniert.

Viele Grüsse
Mirco