- くだすれDelphi(超初心者用)その55
952 :デフォルトの名無しさん[sage]:2014/06/11(水) 21:06:23.57 ID:0Fb7ZLHS - TRttiContext.GetTypesで型を列挙して、それぞれのTRttiTypeのTypeKindがtkClassかどうかで
クラスかどうかをチェックして、Handle.Nameでクラスの型名を取得して、TypeData.ParentInfoで 継承元クラスのTypeInfoを取得して、それをずっと辿って継承元にTMyBaseClassが出現するか、ってな 手順になるかな。もし具体的なコードが欲しければここじゃなくて公式フォーラムかMLにどうぞ。
|
|