Ich musste die eine (!) Routine jetzt zig mal durcharbeiten, um zu verstehen, was die überhaupt macht. Das ist ja vollkommen unübersichtlich mit den ganzen try...excepts.
Delphi-Quellcode:
procedure ErrorLog(ErrorInfo: string);
var
slSave: TStringlist;
sLogFileName: string; // um Logdateinamen vorzugeben
begin
sLogFileName := ChangeFileExt(paramstr(0), '.log');
slSave := TStringlist.Create;
if FileExists(sLogFileName) then slSave.LoadFromFile(sLogFileName);
slSave.Text := DateTimeToStr(Now) + #13#10 +
ErrorInfo + #13#10 + #13#10 + slSave.Text;
try // Schreibrechte im Ordner vorhanden?
slSave.SaveToFile(sLogFileName);
except
MessageBox(0, 'Cannot write to LogFile.', 'ERROR', mb_IconHand);
end;
slSave.Free;
end;
Ja, eins sollte reichen
