【Delphi互換!?】FreePascal/Lazarus その2【GPL】at TECH【Delphi互換!?】FreePascal/Lazarus その2【GPL】
- 暇つぶし2ch929:デフォルトの名無しさん 22/11/15 21:41:42.06 hFwj798Q.net 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;