读文本文件的行数？？？？

Question

怎么样在不装载文本文件的情况下知道文本文件的行数？？？

Answer 1

如果文本文件名是：abc.txt 在c:\
var memo1:tmemo;
   i:integer;
begin
   memo1.Lines.LoadFromFile('c:\abc.txt');
   i:=memo1.Lines.Count;  //i就是abc.txt的行数
   memo1.Destroy ;
end;

Answer 2

var
str:tstringlist;
begin
str:=tstringlist.Create;
str.LoadFromFile('C:\A.TXT');
str.count;//这就是你想要的行数
str.free;
end;不装载是什么意思？不LoadFromFile?那好，看下面：
var 
 i : Integer; 
 F: TextFile; 
 S: string; 
begin 
 i:=0;
 AssignFile(F,'C:\A.TXT'); { File selected in dialog } 
 Reset(F); 
 while not EOF(F) do
 begin    
  Readln(F, S); 
  inc(i);
 end;
 CloseFile(F); 
end; 

Answer 3

比如某个文本有200行，保存的时候起名a200.txt，这样从文件名就可以知道有多少行了，不用打开文件。

Answer 4

不装载就是不要把整个文本文件读进来！不要用LoadFromFile.
有其他办法吗？