如何搜索目录下的文件并且把文件名一一列入ListBox!

[Linux2001]

[windindance]

9·最简单的方法 - 使用TFileListBox控件：）

[粗线条Jackie]

我先说一下查找的实现方法：
1． 获取当前目录下的所有下一级子目录。
2． 存入字符串列表中（Tstrings）。
其中，用到了几个API函数。
FindFirst 是找出指定目录下第一个文件或目录。
FindNext 一般和FindFirst配合使用，用来找出下一个文件或目录。
FindClose 用来关闭查询。
3． 用FileExists函数查找当前目录，
4． 寻找是否有满足条件的文件存在，
5． 依次使各个子目录成为当前目录，
6． 递归调用本函数，
7． 释放资源，
8． 返回查询结果。 　
　

[karron]

gz

[shawnguo]

学习

[Linux2001]

能写一下代码么?

[wangxd1976]

怎么这么懒呀

[wangxd1976]

procedure TMainForm.findfiles(Apath:string);
var
FSearchrec,DSearchrec:TSearchRec;
FindResult:integer;
function getdirname(dirname:string):string;
begin
if dirname[length(dirname)]<>'\' then
result:=dirname+'\'
else
result:=dirname;
end;
function IsDirNotation(Adirname:string):bool;
begin
result:=(adirname='.') or (adirname='..');
end;
begin
apath:=getdirname(apath);
FindResult:=findfirst(Apath+'*.pas',faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
try
while findresult=0 do
begin
listbox1.Items.Add(lowercase(Apath+FSearchRec.Name));
findresult:=findnext(FSearchRec);
end;
findresult:=findfirst(apath+'*.*',faDirectory,DSearchRec);
while findresult=0 do
begin
if ((DSearchRec.Attr and faDirectory)= faDirectory)
and not IsDirNotation(DSearchRec.Name) then
findfiles(apath+DSearchRec.Name);
findresult:=findnext(DSearchRec);
end;
finally
findclose(FSearchRec);
end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
if edit1.text='' then
begin
showmessage('Input Directory First');
exit;
end;
listbox1.items.Clear;
findfiles(trim(edit1.text));
end;

[xiaojiachong]

天那，这么辛苦写这么多，老板总要给点分把