function TForm1.CurrentIsValidDir(SearchRec:TSearchRec):integer; //从搜索记录中判断是否是子目录
begin
if ((SearchRec.Attr <> 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=0
else if ((SearchRec.Attr = 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=1
else
Result:=2;
end;
这里的SearchRec.Attr <> 16
SearchRec.Name<>'.'
SearchRec.Name<>'..'是什么意思?特别是'.'和'..'有什么特殊含义吗?
begin
if ((SearchRec.Attr <> 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=0
else if ((SearchRec.Attr = 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=1
else
Result:=2;
end;
这里的SearchRec.Attr <> 16
SearchRec.Name<>'.'
SearchRec.Name<>'..'是什么意思?特别是'.'和'..'有什么特殊含义吗?
".."代表返回上一个文件夹,"."貌似没什么用
SearchRec.Attr <> 16是代表“文件夹”属性