🚀 go-pugleaf

On Fri, 25 Jan 2019 04:34:47 -0800 (PST), immo wrote:

>>>> Taki kod przestawia mi itemindex z 0 na 1. Bez błędów i problemów.
>>> 
>>> U Ciebie pewnie problemem jest metoda GetDBValueAsVariant, która robi
>>> Varianta integerowego jako stringowego. I stąd ambaras.
>> 
>> Gdybyś w metodzie GetDBValueAsVariant, gdzie wiesz jakiego typu jest
>> kolumna w taneli, uży do zwracania varianta czegoś takiego:
>> 
>> result := TValue.From<ColumnType>(DBValue).AsVariant
>> 
>> to problemy by zniknęły imho.
> 
> No chyba nie :) W tabeli jest string, a jak pokazałem powyżej w kodzie w System.Rtti przy Convert dla tkString do tkInteger jest ConvFail :)

Sprawdziłem ten kod, działa:

procedure test;
var
  ctx : TRttiContext;
  rttiType : TRttiType;
  rttiProp : TRttiProperty;
  value: variant;
  rttiValue: TValue;
  v: Variant;
Begin
  v := '5'; //czyli variant "stringowy"
  Value := TValue.From<Integer>(v).AsVariant;
  rttiValue := TValue.FromVariant(Value);
  ctx := TRttiContext.Create;
  rttitype := ctx.GetType(frmMain.cbbServerAddress.ClassInfo);
  rttiprop := rttitype.GetProperty('ItemIndex');
  rttiProp.SetValue(frmMain.cbbServerAddress, rttiValue);
end;

-- 
pozdrawiam
Roman Tyczka