如何快速从文本文件中取得第N行的数据-----急，在线等待！！！

Question

我有一个文本类型的文件aaa.mytxt（约200MB大小），每一行为一条记录(长度未知且不固定），我的程序如下：
var 
F:textfile;
s:string;
begin
  AssignFile(F,tempfilename);
  Reset(F);
  ReadLn(F,s);
end;
如何能快速的取得第N行的数据呢？（用while来不断执行ReadLn的速度太慢了。）

Answer 1

写文件时可否将每行补成定长,然后用 Seek.

Answer 2

哈哈，你用tstringlist来LoadFromFile这个文件，然后用Strings[200]（还是199不记得了）就可以了，不过load时比较慢，还要浪费你200m内存

Answer 3

可以试把文件创建成类型文件，seek()定位