Zeilen in delphi

[DieDolly]

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)