🚀 go-pugleaf

On Fri, 25 Jan 2019 06:17:23 -0800 (PST), immo wrote:

>>   Value := TValue.From<Integer>(v).AsVariant;
> 
> No tak zadziała to jawnie konwertujesz stringa do integera :) Podobne rozwiązanie podałem powyżej. 
> Natomiast chodzi o to, że jeśli TValue w środku ma varianta stringowego to nie potrafi go skonwertować do integera. I tyle. 
> Zastanawiam się tylko, czy jest jakiś powód takiego działania, czy po prostu zaniedbanie, błąd, czy może zostawione to jest na wieczne "później".
> Bo mając informacje o tym jakiego rodzaju jest property, mając informacje jakiego rodzaju jest variant w TValue nie problem przekonwertować stringa do integera... Albo przerobić SetValue, zeby nie wymagał TValue tylko Varianta...

Wynika to z tego, że TValue nie jest odpowiednikiem Varianta czyli typu
autokonwertującego, TValue służy do wewnętrzbych spraw RTTI jako kontener
na wartość.
 
> Wiem że varianty są kapryśne w niektórych zastosowaniach - może to jest problemem dlaczego to jest tak a nie inaczej?
> 
> Zresztą - nieważne - to już tylko dywagacje na ten temat :)

To jeszcze ostatni kodzik, tym razem bazuje na typie docelowym, który
bierze z propertysa i też robi konwersję tylko bez żadnych case of:

procedure test;
var
  ctx : TRttiContext;
  rttiType : TRttiType;
  rttiProp : TRttiProperty;
  value: variant;
  rttiValue: TValue;
  v: Variant;
Begin
  v := '5';
  ctx := TRttiContext.Create;
  rttitype := ctx.GetType(frmMain.cbbServerAddress.ClassInfo);
  rttiProp := rttitype.GetProperty('ItemIndex');
  value := rttiProp.GetValue(frmMain.cbbServerAddress).AsVariant;
  value := VarAsType(v, VarType(value));
  rttiValue := TValue.FromVariant(value);
  rttiProp.SetValue(frmMain.cbbServerAddress, rttiValue);
end;

 
> pozdrawiam i miłego weekendu,

pozdrawiam także życząc spokoju i odpoczynku

-- 
pozdrawiam
Roman Tyczka