RTTI - Property - SetValue

[stahli]

Hallo Armin,
danke, das stimmt.

Deinen Beitrag zum Thema habe ich auch gefunden. Für meine Zwecke ist SetValue soweit ausreichend.

In Verbindung mit Attributen ist RTTI schon sehr interessant.
Wenn man Objekte speichern möchte, ist das ein guter Grund, ggf. auf D2010 bzw. XE upzugraden.

[s.h.a.r.k]

Oh ja, das stimmt auf jedenfall. Ebenso, wenn man sich einen eigenes ORM-Framework schreiben will, kann das echt sehr praktisch sein.

[stahli]

Ich habe noch ein Problem mit den Aufzählungstypen:

Delphi-Quellcode:

        Value := TValue.Empty;
        case PropInfo.PropertyType.TypeKind of
          tkUnknown:
            ;
          tkInteger:
            Value := TValue.From(StrToIntDef(PropValue, 0));
          tkChar:
            ;
          tkEnumeration:
            Value := TValue.From(TXyz(GetEnumValue(PropInfo.PropertyType.Handle, PropValue))); // <-- HIER
          tkFloat:
            ;
          ...
        end;
        if not Value.IsEmpty then
          PropInfo.SetValue(od, Value);

Ich möchte hier natürlich universelle Aufzählungstypen zuweisen. Mit GetEnumValue erhalte ich den korrekten Ordinalwert.
Wenn hart in Txyz caste, funktioniert auch die Varianten-Zuweisung korrekt. Wenn aber TAbc eingelesen werden soll, funktioniert das natürlich nicht.
Kann ich irgendwie PropInfo.MYTYPE(GetEnumValue(PropInfo.PropertyType.Handle, PropValue)) oder ähnliches verwenden?
Irgendwo liegt hoffentlich ein Handle auf den Typ TXyz bzw. TAbc ... bitte, bitte, bitte

Oder kann ich SetValue irgendwie zwingen, einen Ordinalwert für Aufzählungstypen anzunehmen?

[stahli]

Sorry, für den Push.
Das Handle ist offenbar schon das richtige (Name=TStateType).
An der Position des Pfeils will ich nun in diesen "Typ" casten.

[stahli]

Ich habe hier eine Lösung gefunden.

Delphi-Quellcode:

          tkEnumeration:
            Value := TValue.FromOrdinal(PropInfo.PropertyType.Handle, GetEnumValue(PropInfo.PropertyType.Handle, PropValue));

So funktioniert es. Der Rest sollte dann zu schaffen sein.