デルファイでジェネリックからバリアントに変換するには

Question

ジェネリック型の引数を持つ関数を公開するDelphiジェネリッククラスがあります。この関数の中で、汎用型のインスタンスをVariant型を予期している別のオブジェクトに渡す必要があります。これと同様：

type 
    IMyInterface = interface 
    DoStuff(Value: Variant); 
    end;  

    TMyClass<T> = class 
    FMyIntf: IMyInterface 
    procedure DoStuff(SomeValue: T); 
    end; 

[...] 

procedure MyClass<T>.DoStuff(SomeValue: T); 
begin 
    FMyIntf.DoStuff((*convert SomeValue to Variant here*)); 
end; 

私はRtti.TValue.From（SomeValue）.AsVariantを使ってみました。これは整数型では機能しましたが、ブーリアンでは爆発しました。私は、通常、なぜ私はバリアントにブール値を割り当てることができるだろうと思う理由はよく分かりません...

この変換を行う良い方法はありますか？

Answer 1

一般的な型をvariantに変換する直接的な方法はないと思います。変形はすべての可能な型を保持できないためです。特定の変換ルーチンを記述する必要があります。例えば：

interface 
//... 
type 
    TDemo = class 
    public 
    class function GetAsVariant<T>(const AValue: T): Variant; 
    end; 
//... 
implementation 
uses 
    Rtti, 
    TypInfo; 
//... 

{ TDemo} 

class function TDemo.GetAsVariant<T>(const AValue: T): Variant; 
var 
    val: TValue; 
    bRes: Boolean; 
begin 
    val := TValue.From<T>(AValue); 
    case val.Kind of 
    tkInteger: Result := val.AsInteger; 
    tkInt64: Result := val.AsInt64; 
    tkEnumeration: 
    begin 
     if val.TryAsType<Boolean>(bRes) then 
     Result := bRes 
     else 
     Result := val.AsOrdinal; 
    end; 
    tkFloat: Result := val.AsExtended; 
    tkString, tkChar, tkWChar, tkLString, tkWString, tkUString: 
     Result := val.AsString; 
    tkVariant: Result := val.AsVariant 
    else 
    begin 
     raise Exception.Create('Unsupported type'); 
    end; 
    end; 
end; 

TValue.AsVariantは、内部で型変換のほとんどを処理しているため、この機能を簡略化することができます。あなたがタイプのローカル変数を作成しようとしたことがあり

var 
    vValue: Variant; 
begin 
    vValue := TDemo.GetAsVariant<Boolean>(True); 
    Assert(vValue = True); //now vValue is a correct Boolean 

Answer 2

別の方法（XE10をテストした）

Var 
    old : variant; 
    val : TValue; 
Begin 
    val := TValue.FromVariant(old); 
End;