🚀 go-pugleaf

Witam,

Nigdy "ręcznie" nie bawiłem się RTTI, zawsze używałem armatę na muchę.
Ale tym razem chciałem coś banalnego zrobić i poległem.

Mianowicie, chciałem odczytać i zapisać dowolne property komponentu, a później ustawić to wcześniej zapisane.

I o ile pobranie wartości property jako Variant i zapisanie gdziekolwiek nie robi problemu. Tzn wszystko działa i zapisuje się poprawnie.

To tyle już ustawienie property rodzi problemy.
Krótki przykład:

var
  ctx : TRttiContext;
  rttiType : TRttiType;
  rttiProp : TRttiProperty;
  value: variant;
  rttiValue: TValue;
Begin
  Value := GetDBValueAsVariant;
  rttiValue := TValue.FromVariant(Value);
  ShowMessage(rttiValue.ToString); //tutaj pokazuje poprawne wartości
  ctx := TRttiContext.Create;
  rttitype := ctx.GetType(jakiś np. ComboBox.ClassType);
  rttiprop := rttitype.GetProperty('ItemIndex');
  rttiProp.SetValue(jakiś np. ComboBox,rttiValue);
end;

i problem jest taki, że jak rttiValue jest brane z Varianta, to przy podstawianiu dostaje w ostatniej linii invalid type cast.

Jeśli Value zmienie na integer a TValue.FromVarian na TValue.From(value) to przy podstawieniu nie ma błędu i działa ok.

Jednak takie rozwiązanie jest do bani, bo ja chcę żeby to działało ze wszystkimi property (integer, string, datetime, color itp. itd.).


Tak sobie szukam po necie i raczej nie znalazłem rozwiązania, bo wszystkie albo są proste tak jak powyżej, albo dla kolekcji czy bardziej złożonych propertiesów.


Pytanie - czy ktoś mógłby nakierować mnie co jest nie tak?

pozdrawiam,
Przemek O.