5,928
社区成员
发帖
与我相关
我的任务
分享不用控件，如何得知一个TXT文件有多少行？
用Memo1.lines.count可以的到Memo1中文本有多少行，但是如果不用Memo控件，能否得到一个TXT文件的行数呢？
...全文
请发表友善的回复…
发表回复
zhaoyu_me 2006-08-16
- 打赏
- 举报
还有得到了行数后如何读出指定行的内容呢？
zhaoyu_me 2006-08-16
- 打赏
- 举报
用tstringlist要加上Classes.pas,可我想写一个功能很简单很小巧的DLL，加上Classes.pas后文件太大了，请问用那些最基本的文件操作函数如何解决
wudi_1982 2006-08-15
- 打赏
- 举报
var
a : tstringlist;
begin
a := tstringlist.create;
a.loadfromfile('d:\a.txt');
showmessage(inttostr(a.count));
a.free;
end;
也可以用那些最基本得文件操作函数
a : tstringlist;
begin
a := tstringlist.create;
a.loadfromfile('d:\a.txt');
showmessage(inttostr(a.count));
a.free;
end;
也可以用那些最基本得文件操作函数
