有关读取文本文件的问题？（在线等）

Question

比如：我想读取文本文件的第三行，或第五行，或4－29行等等怎样实现，，

Answer 1

TSTRINGLIST.LOADFROMFILE('YOURFILE');
TSTRINGLIST.STRING[2]....

Answer 2

var
  f:textfile;
  str:string;
  i:integer;
begin
  assignfile(f,'a.txt');
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    readln(f, str);
    if i=3 then
    showmessage(str);  end;
  closefile(f);
end;

Answer 3

var
  i:integer;
  f:Textfile;
  s:array[3..5] of string;
begin
  assignfile(f,文件名);
  reset(f);
  for i:=1 to 2 do
    readln(f,s[3]);
  readln(f,s[3]);
  readln(f,s[4]);
  readln(f,s[5]);
  fileclose(f);
end;

Answer 4

lion_lh提供的方法好像不行啊？

Answer 5

如果文件很大，有几十万行。 ruhapy(风)提供的方法效率不高。有没有不用数组的方法。。，，，？

Answer 6

TSTRINGLIST.LOADFROMFILE('YOURFILE');
TSTRINGLIST.STRING[2]....用数组很快的

Answer 7

TSTRINGLIST 是什么东东？？
它没有LOADFROMFILE 这个属性方法，，

Answer 8

var
  str:tstringlist;
begin
  str:=tstringlist.Create;
  str.LoadFromFile('d:\ks\winace.txt');
  showmessage(str[3]);