RTTI und Generics

[Daniela.S]

Schönen guten Morgen,

bislang habe ich die RTTI nie benutzt, jetzt hätte ich mal ein wenig Zeit mich damit zu beschäftigen... Aber irgendwie scheitert es schon bei den ersten Schritten...

Ich würde gerne die Objekte in einer generischen Liste durchsuchen. Allerdings klappt die Abfrage bei GetProperty nicht so richtig. Vielleicht hat jemand von euch einen Tipp für mich?

Gefunden hätte ich ja einiges, aber immer nur bei direkter Angabe der Klasse in GetValue, aber die soll ja austauschbar sein.

Delphi-Quellcode:

  TMyClass = class
  private
    fName   : String;
    fValue  : Integer;
  published
    property Name: String read fName write fName;
    property Value: Integer read fValue write fValue;
  end;



  TMyList<T> = class
  private
    fList     : TList<T>;
  public
    constructor Create;
    function Find( const Param: String; const Value: Variant ): T;
    function Add( const Value: T ): Integer;
  end;



var
  test    : TmyList<TMyClass>;
begin
   // bisschen was hinzufügen
  {...}
  test.Find( 'Value', 100 );
  {...}
end;
  


function TMyList<T>.Find( const Param: String; const Value: Variant ): T;
var
  context      : TRttiContext;
  typeInfo     : TRttiType;
  prop         : TRttiProperty;
  item         : T;
  v            : TValue;
begin
  context := TRttiContext.Create;
  try
    typeInfo := context.GetType( System.TypeInfo(T) );
    prop := typeInfo.GetProperty( Param );

    for item in fList do begin
      v := prop.GetValue( @item );  // <- stimmt das?
      if v.AsVariant = Value then begin
        Result := item;
        Break;
        end;
      end;
  finally
    context.Free;
    end;
end;