letzten 10 zeilen text datei auslesen

[ichbins]

NEIN

er muss nicht alles laden. Er kann auch eine textfile verwenden.

Delphi-Quellcode:

var
  t:textfile;
  zeile:string;
  i:integer;
  s:tstringlist;
begin
  s:=tstringlist.crate;
  assignfile(t,FILENAME);
  reset(t);
  for i:=1 to 10 do
  begin
    readln(t,zeile);
    s.add(zeile);
  end;
  closefile(t);
  //jetzt enthält die Stringlist die ersten 10 Zeilen.
end;

außerdem ist es sehr gefährlich, eine Funktion zu schreiben, die eine Klasse zurückgibt, da man in 99% aller Fälle nicht daran denkt die Klasse wieder freizugeben und so mit jedem Aufruf etwa 0,5 KB Speicher verbraucht und nicht wieder freigegeben werden. Ich hatte das schon bei einem Spiel (Bitmap zurückliefern), und das ist dann nach 5 min abgestürzt.


[edit]
gerade habe ich gesehen dass es um die letzten Zeilen geht und nicht um die ersten

geht aber auch:

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;

(ungetestet)