Zeilen in delphi

[Der schöne Günther]

Hallo und Willkommen

Zwei Fragen vorab:

1. Bist du dir sicher dass du wirklich jedes mal deine Log-Datei neu öffnen, eine Zeile anhängen und wieder schließen willst?
2. Erzähl mal mehr zu deiner (nummer) . Soll das Programm bei Start immer bei Nummer 1 anfangen oder willst du bereits bestehende Dateien mit einbeziehen? Heißt: Von letzter Woche existieren noch Log34.txt, Log35.txt und jetzt neue Einträge kommen in eine neue Log36.txt?

Unabhängig von Frage 2 brauchst du in deiner TForm1 eine Variable die sich merkt wie viele Zeilen du schon geschrieben hast. Theoretisch könntest du bei jedem Aufruf von Log(Text:string) durch die gesamte Datei spulen und die Zeilen zählen aber das wäre wirklich nicht das Richtige. Du brauchst eine Variable die du bei jedem Aufruf von Log(Text:string) hochzählst. Wenn der Wert bei 200 ist, dann weißt du dass es jetzt genug Zeilen sind und du eine neue Datei aufmachen musst.

Das sähe ungefähr so aus:

Delphi-Quellcode:

type   
    TForm1 = class(TForm)
        (...)
        var numberOfLogLines: Integer;
    end;


procedure TForm1.Log(Text: String);
begin
  (...)
  numberOfLogLines := numberOfLogLines + 1;
  if(numberOfLogLines = 200) then
    begin
      (...)
      numberOfLogLines := 0;
    end;
end;

Bis dahin verstanden?