くだすれDelphi(超初心者用)その55at TECHくだすれDelphi(超初心者用)その55 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト1000:6/11(水) 19:30:47.40 ID:Bs2QtGfm.net 1001:デフォルトの名無しさん 14/06/11 21:06:23.57 0Fb7ZLHS.net TRttiContext.GetTypesで型を列挙して、それぞれのTRttiTypeのTypeKindがtkClassかどうかで クラスかどうかをチェックして、Handle.Nameでクラスの型名を取得して、TypeData.ParentInfoで 継承元クラスのTypeInfoを取得して、それをずっと辿って継承元にTMyBaseClassが出現するか、ってな 手順になるかな。もし具体的なコードが欲しければここじゃなくて公式フォーラムかMLにどうぞ。 1002:デフォルトの名無しさん 14/06/12 17:09:44.54 WVwRtvyG.net 列挙はともかく親までわざわざRTTIで辿らなくてもクラス参照取り出してInheritsFrom呼ぶだけでいいんじゃないの? 1003:デフォルトの名無しさん 14/06/12 17:14:45.28 rSU+gR4e.net それもそうだね 1004:デフォルトの名無しさん 14/06/14 04:45:46.47 NSoK88RM.net // TStringsを乗っ取るサンプル type TStringsHelper = class helper for TStrings procedure Add; overload; procedure Add(s: String); overload; procedure Add(fmt: String; args: array of const); overload; end; { TStringsHelper } procedure TStringsHelper.Add; begin Add(''); end; procedure TStringsHelper.Add(s: String); begin Add(s); ← ここでオリジナルのTStrings.Addを呼び出すのってどうやるの? end; procedure TStringsHelper.Add(fmt: String; args: array of const); begin Add(Format(fmt, args)); end; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch