Quickly retrieve the lines from a text file(0分)

记得有人要过，所以贴了，由于没有贴整片文章，所以没有违反AGREEMENT，呵呵...
functionGetLinesFromFile(filename:string;
linestart, lineend:integer) : TStringList;
var
fn : textfile;
c : word;
Line : String;
begin
Result:=TStringList.Create;
AssignFile(fn,filename);
Reset(fn);
for c:=0 to LineStartdo
ReadLn(fn,Line);
for c:=LineStart to LineEnddo
begin
Result.Add(Line);
ReadLn(fn,Line);
end;
CloseFile(fn);
end;

3x

这样试不是更快？
result.loadfromfile(filename);
for c:=0 to LineStartdo
result.delete(0);
for c:=LineEnddo
wn to 0do
result.delete(result.count-1);

接受答案了.