J jixiaoyu Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #1 有一TEXT类型的文本文件，现在想取得改文件中最后一行文本的行号，请问程序 中怎么实现，不要采用FOR循环一行一行读文本而累加得到的方法（这方法我会）
J jammi Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #2 Textlist:=Tstringlist.create; Textlist.LoadFromFile('check.txt'); 最后一行文本的行号:=TextList.Count;
A Adnil Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #4 方法不太好，如果文件很大的话，load一下得化很多的时间，有没有更好的方法？
J jixiaoyu Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #5 该文件大概有100M左右，一般有200万行 这种方法的效率好像不是很高，有哪位高人有更好的方法
T tooper Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #6 var fp:TextFile; i: Integer; begin i:=0; assignfile(fp,edit1.Text); reset(fp); while not eof(fp) do begin readln(fp); i:=i+1; end; // while closefile(fp); edit2.Text:=inttostr(i); result:=i;//行数 end;
var fp:TextFile; i: Integer; begin i:=0; assignfile(fp,edit1.Text); reset(fp); while not eof(fp) do begin readln(fp); i:=i+1; end; // while closefile(fp); edit2.Text:=inttostr(i); result:=i;//行数 end;
