TCustomActionList子孫の内容を人間が読める形式にダンプします

Question

私は異物インスタンスを持っており、コンポーネントのプロパティを "手動で"調べたいと思っています。 コンポーネントのストリーミングと、出力をテキスト形式に変換する方法はわかっていますが、問題は - TCustomActionList（私のインスタンスがTActionManagerであると分かりました）は、その動作をストリームしません。そうするためには何か手掛かりはありますか？

---

UPD：今すぐアクションを通して反復処理とにTActionインスタンスを作成して割り当てを行う、（コンテナ/所有者として）TDataModuleを作成することであることを行っています。解決策はまだTAction子孫について気にしないことから苦しみます。

Answer 1

トリッキーなことをしない簡単な例です。

function TMyThing.SaveComponent(a:TComponent):String; 
var 
    Stream2: TStringStream; 
    Stream1: TMemoryStream; 
begin 
    Stream1 := TMemoryStream.Create; 
    Stream2 := TStringStream.Create; 
    try 
    Stream1.WriteComponent(a); 
    Stream1.position := 0; 
    ObjectBinaryToText(Stream1, Stream2); 
    result := Stream2.DataString; 
    finally 
    Stream1.Free; 
    Stream2.Free; 
    end; 
end; 

procedure TMyThing.Dump; 
var 
n:Integer; 
a:TContainedAction; 
s:String; 
begin 
    for n := 0 to ActionManager1.ActionCount-1 do begin 
     a := ActionManager1.Actions[n]; 
     s := '----- '+a.Category+' '+a.Name+' '+a.ClassName+':'; 
     // crude manual way 
     if a is TAction then begin 
      s := s+ ' '+TAction(a).Caption; 
      s := s+ ' '+TAction(a).Hint; 

     end; 
     // RTTI stream in DFM text format 
     s := s+ SaveComponent(a); 
     Memo1.Lines.Add(s); 
    end; 
end;