文件查找问题求解

来源:百度知道 编辑:UC知道 时间:2024/09/25 19:18:24
//----模糊查找------------------------------------------------------------------
Function FindFile(const FileSpec: TFileName;attributes: integer): TStringList; Export; //指示字export?是怎么用的?
var
Spec: String; //文件名
list: TStringList;
//------------------查询下级目录的子过程
procedure RFindFile(const Folder: TFileName);
var
SearchRec: TSearchRec;
begin
if FindFirst(Folder + Spec, Attributes, SearchRec)=0 then
begin
try
repeat
if (SearchRec.Attr and faDirectory = 0) or (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then //searchrec.name<>'.'和searchrec.name<>'..'是什么意思?
list.Add(Folder + SearchRec.Name);
until FindNext(SearchRec) <> 0;
except
FindClose(SearchRec);

if (SearchRec.Attr and faDirectory = 0) or (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then //searchrec.name<>'.'和searchrec.name<>'..'是什么意思?

. 和 ..是Windows为了兼容Dos,意思是根目录和父目录,比如 cd ..是就到上一层目录,而这个是不需要列出来的,所以要去掉

if ((SearchRec.Attr and faDirectory) <> 0) and //这里我也看不明白,请教
SearchRec.Attr存放的是查找结果的属性, SearchRec.Attr and faDirectory = 0就是该文件是否是目录。

//指示字export?是怎么用的
dll中函数指示字,表示该函数在该Dll中导出,在函数声明的结尾添加该关键字

你想问什么?