在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList); var searchRec: TSearchRec; found: Integer; tmpStr: string; curDir: string; dirs: TQueue; pszDir: PChar; begin dirs := TQueue.Create; //创建目录队列 dirs.Push(path); //将起始搜索路径入队 pszDir := dirs.Pop; curDir := StrPas(pszDir); //出队 {开始遍历,直至队列为空(即没有目录需要遍历)} while (True) do begin //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径 tmpStr := curDir + '\*.*'; //在当前目录查找第一个文件、子目录 found := FindFirst(tmpStr, faAnyFile, searchRec); while found = 0 do //找到了一个文件或目录后 begin //如果找到的是个目录 if (searchRec.Attr and faDirectory) <> 0 then begin {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录" 大概是表示上层目录和下层目录吧。。。要过滤掉才可以} if (searchRec.Name <> '.') and (searchRec.Name <> '..') then begin {由于查找到的子目录只有个目录名,所以要添上上层目录的路径 searchRec.Name = 'Windows'; tmpStr:='c:\Windows'; 加个断点就一清二楚了 } tmpStr := curDir + '\' + searchRec.Name; {将搜索到的目录入队。让它先晾着。 因为TQueue里面的数据只能是指针,所以要把string转换为PChar 同时使用StrNew函数重新申请一个空间存入数据,否则会使已经进 入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。} dirs.Push(StrNew(PChar(tmpStr))); end; end else //如果找到的是个文件 begin {Result记录着搜索到的文件数。可是我是用CreateThread创建线程 来调用函数的,不知道怎么得到这个返回值。。。我不想用全局变量} //把找到的文件加到Memo控件 if fileExt = '.*' then fileList.Add(curDir + '\' + searchRec.Name) else begin if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then fileList.Add(curDir + '\' + searchRec.Name); end; end; //查找下一个文件或目录 found := FindNext(searchRec); end; {当前目录找到后,如果队列中没有数据,则表示全部找到了; 否则就是还有子目录未查找,取一个出来继续查找。} if dirs.Count > 0 then begin pszDir := dirs.Pop; curDir := StrPas(pszDir); StrDispose(pszDir); end else break; end; //释放资源 dirs.Free; FindClose(searchRec); end; //调用 procedure TForm1.Button1Click(Sender: TObject); var dir: string; FileNameList: TStringList; begin dir := trim(Edit1.Text); FileNameList := TStringList.Create; //EnumFileInQueue(PChar(dir), '.*', FileNameList); EnumFileInQueue(PChar(dir), '.*', FileNameList); ShowMessage(IntToStr(FileNameList.Count)); FileNameList.Free; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论