RTTI Enum von Propertys?

[Mavarik]

Zitat von Der schöne Günther:

Delphi-Quellcode:

procedure justRttiThings();
var
   context: TRttiContext;
   rttiType: TRttiType;
   properties: TArray<TRttiProperty>;
   propertyIterator: TRttiProperty;
begin
   context := TRttiContext.Create();
   properties := context.GetType( TypeInfo(TObjectHelper)).GetProperties();

   for propertyIterator in properties do
      WriteLn(propertyIterator.Name);
end;

Das ist schon gut...

Aber was ist wenn ich so etwas habe?

Delphi-Quellcode:

Type
    TFooBasis = class
       private
          FInt : Integer;
       public 
          property ParamInt : Integer read FInt;
    end;

    TFoo      = class
       private
         FBool : Boolean;
       public
         Property ParamBool : Boolean read FBool;
    end;

var
    FooBasis : TFooBasis;
begin
   FooBasis := TFoo.Create;

   GetAllPropertys(FooBasis);
end;

Komme ich da auch an die Propertys?

Mavarik

[Stevie]

Delphi-Quellcode:

procedure GetAllProperties(obj: TObject);
var
  context: TRttiContext;
  properties: TArray<TRttiProperty>;
  propertyIterator: TRttiProperty;
begin
  properties := context.GetType(obj.ClassInfo).GetProperties();
  for propertyIterator in properties do
    WriteLn(propertyIterator.Name);
end;

[himitsu]

Zitat von Mavarik:

Aber was ist wenn ich so etwas habe?

Einen Cmpiler-Fehler.


Und wenn man es dennoch schaft das da reinzubekommen, dann holt man da natürlich die RTTI-Infos aus der Instanz und nicht aus dem Variablentyp.

FooBasis.ClassInfo / FooBasis.ClassName