Delphi可以查找在整个子目录下的所有文本文件吗？(50分)

你若有情 · 2002-10-28

我想做一个查询！
假如输入"中国"
然后把整个目录下所有网页中包含有"中国"的，都把题目显示到列表框中

wlmmlw · 2002-10-28

有何不可？

王公子 · 2002-10-28

Richard3000 · 2002-10-28

var
sr:TSearchRec;
begin
if FindFirst('*中國*',faAnyFile,sr)=0 then
repeat
begin
do
something...
end;
until FindNext(sr)<>0;
end;

ugvanxk · 2002-10-28

delphi5 开发人员指南里有

你若有情 · 2003-10-04

多人接受答案了。