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? :gruebel:

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;

[Daniela.S]

Typisch, zuerst der Verzweiflung nahe, einen Kaffee später gefunden :wink:

Delphi-Quellcode:

prop.GetValue( item as TObject );

trotzdem danke fürs lesen

[Elvis]

Zitat:

Zitat von Daniela.S (Beitrag 1121737)

Typisch, zuerst der Verzweiflung nahe, einen Kaffee später gefunden :wink:

Delphi-Quellcode:

prop.GetValue( item as TObject );

trotzdem danke fürs lesen

Das ist eigentlich falsch.
Denn wenn du diesen Cast machst, macht dein Code ja die Annahme, dass T zuweisungskompatibel zu TObject ist.
Sowas drückt sollte man dem Typen-Parameter gleich mitgeben. Denn fast jede Annahme im Code sollte als Bug angesehen werden.

Ich kenne mich mit Delphis IMO etwas komischen Generics-Syntax nicht so gut aus, aber ich denke, dass sieht dort so aus:

Delphi-Quellcode:

 TMyList<T: TObject> = class

Danach sollte der Kompiler wissen, dass jedes T auch ein TObject ist. Also brauchsu keinen Cast mehr.

[stahli]

Du kannst mit PropInfo.PropertyType.TypeKind auch prüfen, um was für eine Eigenschaft es sich handelt.

Delphi-Quellcode:

procedure TodProp.ClearPointer(const od: Tod; p: Tod);
var
  Context: TRttiContext;
  RttiType: TRttiType;
  PropInfo: TRttiProperty;
  F: Boolean;
  Attr: TCustomAttribute;
  Value: TValue;
  O: TObject;
  PropValue: String;
begin
  if (not Assigned(od)) or (not Assigned(p)) then
    Exit;
  od.HasNotOdPointer := True;

  Context := TRttiContext.Create;
  RttiType := Context.GetType(od.ClassType);

  if Assigned(RttiType) then
  begin
    for PropInfo in RttiType.GetProperties do
    begin
      F := False;
      for Attr in PropInfo.GetAttributes do
      begin
        if Attr is AttrOd then
          F := True;
      end;
      if F then
      begin
        PropValue := '';
        Value := TValue.Empty;
        case PropInfo.PropertyType.TypeKind of // <<===============
          tkClass:
            begin
              if PropInfo.IsWritable then
              begin
                od.HasNotOdPointer := False;
                Value := PropInfo.GetValue(od);
                if (not Value.IsEmpty) then
                begin
                  O := Value.AsObject;
                  if O = p then
                  begin
                    Value := nil;
                    PropInfo.SetValue(od, Value);
                  end;
                end;
              end;
            end;
          //...
        end;
      end;
    end;
  end;

  Context.Free;
end;

[Stevie]

Korrekter constraint in deinem Falle wäre:

Delphi-Quellcode:

TMyList<T: class> = class

und dann kannst du direkt GetValue(item) schreiben, weil der Compiler weiß, dass item auf jeden Fall ein TObject Derivat ist.

[Daniela.S]

Danke euch.
Aber ich denke ich gebe es wieder auf. Bekomme einen Internen Fehler (meistens F2048: AV221E0FCF-R...) nach dem anderen und verbringe mehr Zeit damit meinen Code irgendwie so umzuschreiben damit kein Fehler kommt.

[stahli]

Ich lag wohl mit meinem Beitrag daneben - Du willst ja keine Eigenschaft als Objekt behandeln.

Aber vielleicht solltest Du noch prüfen, ob typeInfo und prop etwas zugewiesen wird.
So weit kannst Du von einer Lösung eigentlich nicht weg sein... ;-)

[Stevie]

Zitat:

Zitat von Daniela.S (Beitrag 1121780)

Danke euch.
Aber ich denke ich gebe es wieder auf. Bekomme einen Internen Fehler (meistens F2048: AV221E0FCF-R...) nach dem anderen und verbringe mehr Zeit damit meinen Code irgendwie so umzuschreiben damit kein Fehler kommt.

Wenn man ansatzweise verstanden hat (kostet etwas Zeit und Nerven), was zu diesen Fehlern führt, dann kann man viel Spaß mit Generics haben.