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?