怎样知道一个文本文件里有多少行

Question

把他读入一个memo然后把wordrape设成false，这样文件中第几行，memo中也是第几行，OK？

Answer 1

用memo控件,visible:=false,
读取这个文件然后用lines.count
lines[i].text

Answer 2

var
 i:integer;
begin
  i:=0;
  while(not eof(FileName))
   begin
     i:=i+1;
   end;
end;

Answer 3

哦，好象还要加些东西：
var
i:integer;
begin
  i:=0;
   reset(FileName);
  while(not eof(FileName))
  begin
    i:=i+1;
  end;
end;   

Answer 4

with TStringList.Create do try
  LoadFromFile('1.txt');
  ShowMessage(IntToStr(Count));
//                     ~~~~~~
finally
  Free;
end;

Answer 5

还是zswang(伴水)(被黑中)你的方法最好，谢谢