Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: bestimmten Bereich einer Textdatei auslesen

  Alt 9. Apr 2006, 20:14
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
  Mit Zitat antworten Zitat