コンポーネントのプロパティ情報をまとめて取得するには？ (ID:44352)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >テキストエディタで入力したのでワーニングなどが出るかも では，実際のサンプルとして．WriteComponent と ReadComponent を使う例です． TFileStream になっていますが，TMemoryStream の方がいいと思います． 例えば，Button1 を扱う場合は，TestData を Button1 とします． [130_オブジェクトの保存 ( クラス型の保存 ) ] http://mrxray.on.coocan.jp/Delphi/plSamples/130_SaveComponent.htm 単に，プロパティの値を取得するだけなのであれば， 以下のように取得できます (備考 : オン書きではありません)． 動作確認環境は，質問者と同じで「秘密」です． //------------------------------------------------------------- // Button1の全プロパティの取得例 // usesにRTTIが必要 //------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var C : TRttiContext; T : TRttiType; P : TRttiProperty; S : String; begin T:= C.GetType(TButton); for P in T.GetProperties do begin try S := P.ToString; S := S + ' : ' + P.GetValue(Button1).ToString; Memo1.Lines.Add(S); except end; end; end;