[Rtti] Feld in ObjectList finden

[Jens01]

Es ist nicht ganz optimal, aber jetzt habe ich das so gelöst :

Delphi-Quellcode:

Parkplatz: TParkplatz;
function WertFinden(Wert1, Wert2: string; i: Integer): Double;
var
  C: TRttiContext;
  T: RttiType;
  F1, F2: TRttiField;
  L: TList;
begin
  T := C.GetType(TParkplatz);
  F1 := T.GetField(Wert1);
  if Assigned(F1) then
  begin
    L := TList(F1.GetValue(Parkplatz).AsObject);
    T := C.GetType( TAuto );
    F2 := T.GetField(Wert2);
    if Assigned(F2) then
      Result := F2.GetValue(L[i]).AsExtended;
  end;
end;