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