掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ソースからクラス図を自動生成したいのですが (ID：149281)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
間違っていたら申し訳ありませんが、 下層から上層へと辿るのならば下記のコードできます。 procedure TForm1.Button1Click( Sender : TObject ); begin CheckClass( Button1.ClassType ); end; procedure TForm1.CheckClass( AClass : TClass ); begin Memo1.Lines.Clear; Memo1.Lines.Add( AClass.ClassName ); // TObjectになるまでループ while AClass <> TObject do begin AClass := AClass.ClassParent; Memo1.Lines.Add( AClass.ClassName ); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.