Zitat von
Berlinermauer:
Delphi-Quellcode:
procedure Get_Logdir;
begin
if DirectoryExists (ExtractFilePath(ParamStr(0)) + 'Logs') then
begin
s := './logs/' + FormatDateTime('dd-mm-yyyy',Now) + '.log';
AssignFile(Log,s);
rewrite(log);
end
dann im OnCreate Get_Logdir.
Log.Lines.SavetoFile(s);
<-- Hier kommt der Fehler
Du scheinst hier die Variable Log in unterschiedlichen Ausprägungen zu benutzen: Auf der einen Seite wird sie mit AssignFile und Rewrite wie ein File oder TextFile verwendet, auf der anderen Seite aber mit Log.Lines.SaveToFile wie ein TMemo. Vermutlich handelt es sich um zwei verschiedene Variablen, aber das geht aus den Code-Snippets nicht hervor.
Bemerkenswert ist aber, daß im Get_LogDir ein File geöffnet wird (warum?) und dieses anscheinen auch bleibt. Das hat allerdings zur Folge, daß die Datei gesperrt ist und somit ein nachfolgendes SaveToFile auf den gleichen Dateinamen schiefgehen muss.