delphi 返回一文本文件的行数

//返回一文本文件的行数

function Txtline(const txt: string): integer;

var

 F : TextFile; {设定为文本文件}

 StrLine : string; {每行字符串}

 line : Integer; {行数}

begin

 AssignFile(F, txt); {建立文件}

 Reset(F);

 Line := 0;

 while not SeekEof(f) do {文件没到尾}

 begin

   if SeekEoln(f) then {判断是否到行尾}

     Readln;

   Readln(F, StrLine);

   if SeekEof(f) then

     break

   else

     inc(Line);

 end;

 CloseFile(F); {关闭文件}

 Result := Line;

end;