【Delphi互換!?】FreePascal/Lazarus その2【GPL】

[0921 デフォルトの名無しさん 2022/11/15(火) 21:41:42.06 ID:hFwj798Q]

Rootってなんだろう？と思って書いてたコードが入ってた

procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent); //override;
var
i: Integer;
begin
for i:=0 to ComponentCount-1 do begin
Proc(Components[i]);
end;
end;