Zitat:
Assignfile
Du kannst dir das alles außerdem viel einfacher machen, wenn du eine TStringList benutzt.
Und wenn ich das hier sehe habe ich ein bisschen Angst, dass du in Python-Syntax schreibst.
Begin
und
End
sind sehr wichtig!
Drück mal in Delphi wenn du den Code vor dir hast STRG+D.
Delphi-Quellcode:
procedure TForm1.Log(Text:string);
var
F : Textfile;
Filename: String;
DT: String;
begin
Filename := Extractfilepath(Application.ExeName) + 'Log.TXT';
Assignfile(f, filename);
if
FileExists(filename)
then
Append(f)
else
Rewrite(F);
DT := formatDAteTime ('dd:mm:yyyy hh:mm:ss.zzz', now);
WriteLn(f, DT,' : ', Text);
CloseFile(f)