请问关于遍历目录,查找文件的问题!!! 急急!!(30分)

  • 主题发起人 主题发起人 saga
  • 开始时间 开始时间
S

saga

Unregistered / Unconfirmed
GUEST, unregistred user!
要求是这样的,要找出指定目录下的所有满足条件的文件,并在listbox中显示出来
我看delphi中有这样的两个函数 findfirst(); findNext();
我想用个递规的算法,把所有的文件都找出来,可是没有这方面的详细资料
help有些说的不是很清楚,请问谁能给我一些有关于这个方面的说明。或者代码。
谢了
 
procedure findall(disk,path: String; var fileresult: Tstrings);
var
fpath: String;
fs: TsearchRec;
begin
fpath:=disk+path+'/*.*';
if findfirst(fpath,faAnyFile,fs)=0 then
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'/'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+strpas(
strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
while findnext(fs)=0 do
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'/'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+str
pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
end;
end;
findclose(fs);
end;


 
接受答案了.
 
后退
顶部