比如搜索 windows目录下的Txt文件.
解决方案 »
- 关于多线程的Terminate方法
- 使用Dbgrid 双击 将数据库选中文件显示到另外一个窗体时出错
- 招delphi兼职,速联系
- 用ado如何连接带口令的acces数据库
- 关于fileStream.create参数的疑惑
- 怎么处理用户并发访问?
- 请问一下:调用函数、过程与用SenderMessage调用函数有什么不同?
- ·DBChart的Series的DataSource里,Labels、X、Bar分别是Series的什么属性?
- 关于NMSMTP控件的问题,急急
- 高分求delphi cdkey
- 急!对OFFICE编程中有一条VBA命令在DELPHI里无法实现???!!!
- 请问各位怎样在dbgrid中的某个字段(类型为实型)的数值格式化成0.00形式,用displayformat怎么写?
if (SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then Result:=True else Result:=False; end; 2. 这是查询主体函数。 参数介绍: Mainpath: 指定的查询目录。 Filename: 欲查询的文件。 Foundresult: 返回的含完整路径的匹配文件(可能有多个)。 如果有匹配文件,函数返回True,否则,返回False; function SearchFile(mainpath:string;filename:string; var foundresult:TStrings):Boolean; var i:integer; Found:Boolean; subdir1:TStrings; searchRec:TsearchRec; begin found:=false; if Trim(filename)<>'' then begin subdir1:=TStringList.Create;//字符串列表必须动态生成 //找出所有下级子目录。 if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); while (FindNext(SearchRec) = 0) do begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); end; end; FindClose(SearchRec); //查找当前目录。 if FileExists(mainpath+filename) then begin found:=true; foundresult.Add(mainpath+filename); end; //这是递归部分,查找各子目录。 for i:=0 to subdir1.Count-1 do found:=Searchfile(mainpath+subdir1.Strings[i]+ '\',Filename,foundresult)or found; //资源释放并返回结果。 subdir1.Free; end; result:=found; end;
var
SearchRec:TSearchRec;
ext,AppPath:string;
begin
listbox1.Items.Clear;
AppPath:='d:\test\';
ext:='*.txt';
FindFirst(AppPath+ext,faAnyFile-faDirectory,SearchRec);
listbox1.Items.Add(SearchRec.Name);
while FindNext(SearchRec)=0 do
listbox1.Items.Add(SearchRec.Name);
end;
FindNext
FindClose
还是用FindFirst吧