从搜索记录中判断是否是子目录。
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;SearchRec.Attr=16 表示“文件夹”
".."代表返回上一个文件夹
"."代表什么?
(SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 三个判断一起又是什么意思?
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;SearchRec.Attr=16 表示“文件夹”
".."代表返回上一个文件夹
"."代表什么?
(SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 三个判断一起又是什么意思?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货