Jak wyliczyć wszystkie właściwości w obiekcie i uzyskać ich wartości?

Question

Chcę wymienić wszystkie właściwości: prywatne, chronione, publiczne itp. Chcę korzystać z wbudowanych urządzeń i nie używać żadnego kodu strony trzeciej.

Answer 1

użycie Rozszerzony RTTI tak (gdy testowałem kod w XE dostałem wyjątek od nieruchomości ComObject, więc dodaje TRY - z wyjątkiem bloku):

uses RTTI; 
procedure TForm1.Button1Click(Sender: TObject); 
var 
    C: TRttiContext; 
    T: TRttiType; 
    F: TRttiField; 
    P: TRttiProperty; 

    S: string; 

begin 
    T:= C.GetType(TButton); 
    Memo1.Lines.Add('---- Fields -----'); 
    for F in T.GetFields do begin 
    S:= F.ToString + ' : ' + F.GetValue(Button1).ToString; 
    Memo1.Lines.Add(S); 
    end; 

    Memo1.Lines.Add('---- Properties -----'); 
    for P in T.GetProperties do begin 
    try 
     S:= P.ToString; 
     S:= S + ' : ' + P.GetValue(Button1).ToString; 
     Memo1.Lines.Add(S); 
    except 
     ShowMessage(S); 
    end; 
    end; 
end; 

Answer 2

odpowiedź serg jest dobra, ale lepiej jest unikać wyjątki omijając pewne typy:

uses 
    Rtti, TypInfo; 

procedure TForm4.GetObjectProperties(AObject: TObject; AList: TStrings); 
var 
    ctx: TRttiContext; 
    rType: TRttiType; 
    rProp: TRttiProperty; 
    AValue: TValue; 
    sVal: string; 
const 
    SKIP_PROP_TYPES = [tkUnknown, tkInterface]; 
begin 
    if not Assigned(AObject) and not Assigned(AList) then 
    Exit; 

    ctx := TRttiContext.Create; 
    rType := ctx.GetType(AObject.ClassInfo); 
    for rProp in rType.GetProperties do 
    begin 
    if (rProp.IsReadable) and not (rProp.PropertyType.TypeKind in SKIP_PROP_TYPES) then 
    begin 
     AValue := rProp.GetValue(AObject); 
     if AValue.IsEmpty then 
     begin 
     sVal := 'nil'; 
     end 
     else 
     begin 
     if AValue.Kind in [tkUString, tkString, tkWString, tkChar, tkWChar] then 
      sVal := QuotedStr(AValue.ToString) 
     else 
      sVal := AValue.ToString; 
     end; 

     AList.Add(rProp.Name + '=' + sVal); 
    end; 

    end; 
end; 

Answer 3

Oto doskonały punkt wyjścia przy użyciu zaawansowanych możliwości najnowszej wersji Delphi:

• Rtti Explorer Lite przez RRUZ.

Poniższy link jest kierowany raczej na wczesną wersję (z D5 na). W oparciu o TypInfo.pas jednostkowych, jest ograniczony, ale wciąż pouczający:

• RTTI Explorer v.1.1 przez Niek Sluyter.