Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: bestimmten Bereich einer Textdatei auslesen
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
|
|
Zitat
|