Zeilen in delphi

**Itachi**

Hallo,

ich will ein Programm zur Erstellung einer Protokolldatei mit maximal 200 Zeilen, und Wenn 200-Zeilen erreicht sind, soll diese Datei umbenannt auf Datei(nummer).ext umbenannt werden

aber ich weiß gar nicht was ich machen muss ich bin ja noch neu.
wäre super wenn jemand mir helfen kann.

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  log('FormCloseQuery');

  if

    MessageDlg ('Programm schließen?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel

    then

     CanClose:= False;

end;

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)

,

Zeilen in delphi

Zeilen in delphi

Forumregeln