得到文本文件的条数 解决给分,up有分

mousecao 2003-08-22 05:01:11
我想知道,最快的知道文本文件的条数 的方法,
不要用readln()
count:=count+1;
这样的方法,效率实在是太低了!
...全文
24 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yangxjn 2003-08-22
  • 打赏
  • 举报
回复
同意:Cipherliu(孤鹰)
Cipherliu 2003-08-22
  • 打赏
  • 举报
回复
这样并非最快的算法.
LoadFromFile很费时的.
感觉最快是找回车符的个数.
bbs791109 2003-08-22
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var v1:tstrings;
v2:integer;
begin
v1:=tstrings.Create;
v1.LoadFromFile('c:\aaa.txt');
v2:=v1.Count; //這里就是你想要的了
end;
dickeybird888 2003-08-22
  • 打赏
  • 举报
回复
不知道你指的是什么?
hare007 2003-08-22
  • 打赏
  • 举报
回复
mark
catty1338 2003-08-22
  • 打赏
  • 举报
回复
同意,lxpbuaa(桂枝香在故国晚秋) !你太厉害了!
lxpbuaa 2003-08-22
  • 打赏
  • 举报
回复
var
Strs: TStrings;
begin
Strs := TStringList.Create;
Strs.LoadFromFile('g:\aa.txt');
//Strs.Count便是
Strs.Free;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧