- 347 名前：デフォルトの名無しさん mailto:sage [2008/12/03(水) 12:12:58 ]
- Form1.ComponentCount
子供の子供まで数えたい時はComponents使って再帰とかすればいい
function CountFunc(Compo: TComponent): Integer;
var
I, Count: Integer;
procedure SaikiFunc(Compo: TComponent);
var
I: Integer;
begin
for I := 0 to Compo.ComponentCount - 1 do
begin
Inc(Count);
SaikiFunc(Components[I]);
end;
end;
begin
Count := 0;
SaikiFunc(Compo);
Result := Count;
end;
