本文介绍了一个用于计算指定路径下子目录数量的函数getDirCount。该函数通过递归遍历目录并利用FindFirst和FindNext函数来判断每个条目是否为有效子目录。
function GetDirCount(ThePath:string):integer
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'.'.) then
Result :=True
else
Result :=False;
end;
var
num:integer;
sr:TSearchRec;
begin
num :=0;
if (FindFirst(ThePath,faDirectory,sr)=0) then
begin
if IsValidDir(sr) then
num :=num+1;
while (FindNext(sr)=0) do
begin
if IsValidDir(sr) then
num :=num+1;
end;
end;
result :=num;
end;
end;
扫一扫
573
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
