本文提供了一个Delphi函数，用于获取指定路径下子目录的数量。通过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;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
