Zitat:
Delphi-Quellcode:
LList := TStringList.Create;
if not IsFileInUse(AppDataPath + 'Jobs.jlf') then
begin
try
...
finally
LList.Free;
...
end;
end;
Was wohl passiert, wenn die Datei "in use" ist.
Delphi-Quellcode:
if not IsFileInUse(AppDataPath + 'Jobs.jlf') then
begin
LList := TStringList.Create;
try
...
PS:
Delphi-Quellcode:
//for i := 0 to Puffer.Count - 1 do
// LList.Add(Puffer[i]);
LList.AddStrings(Puffer);
//Puffer.Text := EmptyStr;
Puffer.Clear;
Aber ich würde da eher zu AssignFile+Append+WriteLn raten, oder zumindestens einem FileStream, welcher die Daten direkt anhängt, da muß nicht ständig die ganze Logdatei jedes Mal neu eingelesen werden, sondern man hängt nur die neuen Zeilen an.
Du willst lieber nicht wissen, was seit D2009 beim Laden oder Speichern einer TStringList passiert. (z.B. bis über das 5-Fache des Speicherverbrauchs der Dateigröße)