【Delphi互換!?】FreePascal/Lazarus その2【GPL】 (979ﾚｽ)
【Delphi互換!?】FreePascal/Lazarus その2【GPL】 http://mevius.5ch.net/test/read.cgi/tech/1261676778/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
920: デフォルトの名無しさん [sage] 2022/11/15(火) 19:22:03.37 ID:hFwj798Q >>919 下記を付け加えると入れ子のデータも書き出された 読み込みが正常に行われるかは検証してない procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent); //override; var i: Integer; begin if Self = Root then begin for i:=0 to ComponentCount-1 do begin Proc(Components[i]); end; end; end; http://mevius.5ch.net/test/read.cgi/tech/1261676778/920
921: デフォルトの名無しさん [sage] 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; http://mevius.5ch.net/test/read.cgi/tech/1261676778/921
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.030s