Moin litsa,
dann mach' es doch wie Nicolai vorgeschlagen hat:
Delphi-Quellcode:
type
TcFrame = ....
// ...
private
FiLogCount : integer;
end;
procedure TcFrame.cFrameCreate(Sender: TObject);
begin
FiLogCount := 0;
end;
var
sLine : string;
begin
if cText.Lines.Count = 0 then exit;
if FiLogCount = cText.Lines.Count then exit;
FiLogCount := cText.Lines.Count;
fs := TFileStream.Create(....);
try
sLine := cText.Lines[cText.Lines.Count-1]+#13#10;
fs.Position := fs.Size;
fs.Write(sLine[1],length(sLine));
finally
FreeAndNil(fs);
end;
end;
Falls die Logdatei bei jedem Programmstart nicht von vorne beginnt, sondern geladen wird, müsstest Du FiLogCount natürlich auf die Anzahl der geladenen Zeilen initalisieren, und nicht auf 0.