5,388
社区成员
发帖
与我相关
我的任务
分享得到文本文件的条数 解决给分，up有分
我想知道，最快的知道文本文件的条数 的方法，
不要用readln()
count:=count+1;
这样的方法，效率实在是太低了！
不要用readln()
count:=count+1;
这样的方法，效率实在是太低了！
...全文
请发表友善的回复…
发表回复
yangxjn 2003-08-22
- 打赏
- 举报
同意：Cipherliu(孤鹰)
Cipherliu 2003-08-22
- 打赏
- 举报
这样并非最快的算法.
LoadFromFile很费时的.
感觉最快是找回车符的个数.
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;
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;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
Strs: TStrings;
begin
Strs := TStringList.Create;
Strs.LoadFromFile('g:\aa.txt');
//Strs.Count便是
Strs.Free;
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
