Datei teilweise lesen

[klebe7]

Hallo :hi:

Ich brauche eine Funktion, die eine Datei teilweise ließt, also den Text von einer bestimmten Zeile bis zur einer bestimmten Zeile.
So weit bin ich bisher, aber komme nicht so richtig weiter:

Delphi-Quellcode:

function ReadPart(const AFile: string; AFromLine, AToLine: Integer;
  var APart: string): Boolean;
begin
  Result := True;
  try
    with TFileStream.Create(AFile, fmOpenRead or fmShareDenyNone) do
      try
        
      finally
        Free;
      end;
  except
    Result := False;
  end;
end;

Ich hoffe auf ein paar Tips, wie man das am besten und am schnellsten lösen kann. :)

Achja und die Funktion sollte möglichst speicherschonend arbeiten, also die Datei z.B komplett in eine StringListe o.Ä zu laden geht nicht.

[mkinzler]

Einfache Schleife von 1 bis Startzeile -1 und Zeilen lesen und verwerfen

[DeddyH]

Richtig, schön altmodisch mit ReadLn.

[klebe7]

Zitat:

Zitat von DeddyH

Richtig, schön altmodisch mit ReadLn.

Das habe ich mal so gemacht:

Delphi-Quellcode:

function ReadPart(const AFile: string; AFromLine, AToLine: Integer;
  var APart: string): Boolean;
var
  F: TextFile;
  I: Integer;
  S: string;
begin
  AssignFile(F, AFile);
  try
    Reset(F);
    try
      I := 0;
      APart := '';
      while (I <= AToLine) and not EOF(F) do
      begin
        ReadLn(F, S);
        if I >= AFromLine then
          APart := APart + S + sLineBreak;
        Inc(I);
      end;
    finally
      CloseFile(F);
    end;
  except
    Result := False;
  end;
end;

aber das ist mir bei größeren Daten einfach zu langsam.
Mit FileStream müsste es doch auch schneller gehen, oder?

[mkinzler]

Versuch es doch aus.

[himitsu]

TPartialTextfile :angel2:

[klebe7]

Zitat:

Zitat von himitsu

TPartialTextfile :angel2:

Danke, ich probiere es damit mal aus.