10 zeilen text datei lesen

[G G]

hallo cih habe ewig gesucht, aber nix gefunden wie ich möglichst resourcen schonend nur die letzten 10 zeilen eienr txt datei auslese?

ohne wenn möglich zuerst alles laden zu müssen?


kennt jemand abhilfe oder code?

vielen dank

[ichbins]

Delphi-Quellcode:

var
  f:file of byte;
  s:tstringlist;
  b,lastb:byte;
  linejumps:integer;
begin
  s:=tstringlist.craete;
  assignfile(f,DATEINAME);
  reset(f);
  seek(f,filesize(f)-1);
  linejumps:=0;
  b:=0;
  while linejumps<10 do begin
    lastb:=b;
    read(f,b);
    if ((b=13) and (lastb=10)) then
      linejumps:=linejumps+1;
    seek(f,filepos(f)-2);
  end;
  seek(f,filepos(f)+2);
  //jetzt ist er an der Position an der die 10.letzte Zeile anfängt
  b:=0;
  while not eof(f) do begin 
    lastb:=b;
    read(f,b);
    if ((lastb=13) and (b=10)) then
      s.add('')
    else
      if b<>13 then
        s.strings[s.count-1]:=s.strings[s.count-1]+char(b);
  end;
end;

[Sharky]

Hier geht es weiter.

*c l o s e*