Hallo

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:

zusammenfalten · markieren

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.

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

Richtig, schön altmodisch mit ReadLn.

Zitat von DeddyH:

Richtig, schön altmodisch mit ReadLn.

Das habe ich mal so gemacht:

zusammenfalten · markieren

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?

Versuch es doch aus.

TPartialTextfile

Zitat von himitsu:

TPartialTextfile

Danke, ich probiere es damit mal aus.