🚀 go-pugleaf

On Fri, 25 Jan 2019 01:34:15 -0800 (PST), immo wrote:

>>> Ten problem konkretnie w Delphi XE2, ale nakierowałeś mnie - muszę to sprawdzić w najnowszym :)
>> 
>> Tak myślałem, że jakiś antyk jest na tapecie, a antyki miały spore problemy
>> z RTTI (i generykami) ;-)
>> 
>> W Tokyo (i kilku wersjach wstecz) to działa, bo niby czemu nie? 
> 
> Jesteś pewien że działa? Właśnie sprawdziłem w RIO i jego źródłach i nie ma prawa działać :P

procedure test;
var
  ctx : TRttiContext;
  rttiType : TRttiType;
  rttiProp : TRttiProperty;
  value: variant;
  rttiValue: TValue;
Begin
  Value := 1;
  rttiValue := TValue.FromVariant(Value);
//  ShowMessage(rttiValue.ToString); //tutaj pokazuje poprawne wartości
  ctx := TRttiContext.Create;
  rttitype := ctx.GetType(frmMain.cbbServerAddress.ClassInfo);
  rttiprop := rttitype.GetProperty('ItemIndex');
  rttiProp.SetValue(frmMain.cbbServerAddress, rttiValue);
end;

Taki kod przestawia mi itemindex z 0 na 1. Bez błędów i problemów.

-- 
pozdrawiam
Roman Tyczka