Zeilenanzahl bei name.log Datei begrenzen

[aaaaaaaaaa_10]

geht aber auch net

[hoika]

Hallo

1. geht nicht, ist keine Fehlermeldung
2. wenn man dir schon fast alles hier hinschreibt,
wäre es schön, wenn du auch mal den Debugger anwerfen würdest
und nicht auf eine komplette Lösung warten würdest.


Heiko

[aaaaaaaaaa_10]

dieselbe fehlermeldung wie bei FMaxLines

[Aphton]

Weißt du was, vergiss das ganze und lern erst einmal die Delphi-Syntax!
Ist wirklich nur gut gemeint, denn so kommst du nicht weit. Und Grundlegende Sachen zu vermitteln ist nervig!

MfG

[pertzschc]

Zitat von aaaaaaaaaa_10:

Delphi-Quellcode:

constructor TLogFile.Create(FileName: string; LogSize: integer;
  AppLog: boolean);
begin
   FFileName := FileName;
  FLogSize := LogSize;
  FAppLog := AppLog;
end;

Schau mal selber, Du hast uns hier den Konstruktor von Deinem TLogFile gepostet. da kannst Du doch eine LogSize mitgeben, vielleicht sind das ja Deine "1000" Zeilen?
Gruß, Christoph

[aaaaaaaaaa_10]

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?

[holliesoft]

Hi,

wenn die Logdatei noch nicht existiert, dann kann sie auch nicht geladen werden. Daher:

Delphi-Quellcode:

procedure TLogFile.AddLine(Line: string);
var
  LogFileList : TStringList;
  Zeile: String;
begin
  LogFileList := TStringList.Create;
  try
    If FileExists(FFileName) then 
      LogFileList.LoadFromFile(FFileName);
    while LogFileList.Count > (MaxLines-1) do
        LogFileList.Delete(0);
    LogFileList.Add(FormatDateTime('c.zzz - ', Now)+Line);
    LogFileList.SaveToFile(FFileName);
  finally
    LogFileList.Free;
  end;
end;

Gruß
Patrick

[aaaaaaaaaa_10]

Ahhh. Logisch
Danke

[Brainshock]

Zusätzlich kannst du dir dann auch die While Schleife sparen.

[DeddyH]

Stimmt, aber es schadet ja auch nicht, wenn man es so lässt.