letzten 10 zeilen text datei auslesen

[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

[malo]

Du musst in jedem Fall alles einladen. Aber du kannst den Anfang auch wieder löschen...
Ich würde dir eine StringList empfehlen und etwa so vorgehen:

Delphi-Quellcode:

function LoadLast10Lines(aFile: string): TStringList;
var SL: TStringList;
    i: integer;
begin
  SL := TStringList.Create;
  try
  SL.LoadFromFile(file);
  for i := SL.Count - 1 downto SL.Count - 11 do
  begin
    result.Add(SL[i]);
  end;
  finally
  SL.free;
  end;
end;

[Die Muhkuh]

Hi Malo,

file kannst du nicht benutzen als Variablenname, da es schon reserviert ist

[malo]

Zitat von Spider:

Hi Malo,

file kannst du nicht benutzen als Variablenname, da es schon reserviert ist

Danke für den Hinweis, ist korrigiert

[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)