bestimmten Bereich einer Textdatei auslesen

[marabu]

Für Fall 1 ist die Lösung recht einfach:

Delphi-Quellcode:

function LoadStringFromFile(fn: TFileName; iOffset, iSize: Cardinal): String;
begin
  with TFileStream.Create(fn, fmOpenRead) do
  try
    Position := iOffset;
    SetLength(Result, iSize);
    Read(Result[1], iSize);
  finally
    Free;
  end;
end;

var
  s: TStringList;
  iOffset, iSize: Cardinal;
  fn: TFileName;

begin
  s.Text := LoadStringFromFile(fn, iOffset, iSize);
end;

Grüße vom marabu