小女子大问题：如何实现搜索c:/abc，关将文件名包含'cd'字符的文件，加入listbox中(10分)

学习学习学习

高手教教我,

var F:TSearchRec; localDir:string;
begin
if FindFirst(LocalDir,faAnyFile,F)=0 then
begin
if pos('cd',f.name)>0 then
FileList.Add(F.name);
while FindNext(F)=0 do
begin
if pos('cd',f.name)>0 then
FileList.Add(F.name);
end;
FindClose(F);
end;

楼上的说的对，不过也有偷懒 方法，用控件TFileListBox;

procedure TForm1.FindAll(Path,sfile: String);
var
sr:TSearchRec;
fr:Integer;
begin
if length(path)<>3 then
Path:=path+'/*.*'
else
Path:= path+'*.*';
fr:=FindFirst(Path,faAnyFile,sr);
while fr=0 do
begin
if (sr.Attr=faDirectory)and(sr.Name<>'.')and(sr.Name<>'..') then
FindAll(sr.name+'/*.*',sfile) //递归查找下一个目录
else
if pos(sfile,sr.name)>0 then
begin
//处理文件
showmessage(sr.name);
end;
fr:=FindNext(sr);
end;
FindClose(sr);
end;
//调用时
FindAll('c:/abc','cd')