Also, ich habe es jetzt in Ruhe durchgearbeitet und es geht fast.
Delphi-Quellcode:
procedure TLogFile.AddLine(Line: string);
var
LogFileList : TStringList;
Zeile: String;
begin
LogFileList := TStringList.Create;
try
[color=#ff001f]LogFileList.LoadFromFile(FFileName);[/color]
while LogFileList.Count > (MaxLines-1) do
LogFileList.Delete(0);
LogFileList.Add(FormatDateTime('c.zzz - ', Now)+Line);
LogFileList.SaveToFile(FFileName);
finally
LogFileList.Free;
end;
end;
An der markierten Stelle, scheint etwas nicht zu stimmen. Beim Ausführen des Programms, sagt er, dass er die Datei nicht findet. Obwohl doch erst Create und dann Add kommt?