प्रकार <T> प्रकार वैरिएंट में कनवर्ट करना, क्या यह संभव है?

Question

यहाँ एक टुकड़ा दिखा मैं क्या हासिल करने की कोशिश कर रहा हूँ:

type 
    TMyObject<T> = class (TObject) 
    function GetVarType(Value: T): TVarType; 
    end; 


function TMyObject<T>.GetVarType(Value: T): TVarType; 
var 
    TmpValue: Variant; 
begin 
    TmpValue := Variant(Value); //Invalid typecast 
    Result := VarType(TmpValue); 
end; 

मुझे पता है कि समान किरदार के साथ ऊपर apporach अनुभवहीन है, लेकिन मुझे आशा है कि आप विचार मिलता है। मैं इसे कुछ रूपांतरण तंत्र से बदलना चाहता हूं।

टीएमओब्जेक्ट हमेशा इंटीजर, स्ट्रिंग, सिंगल, डबल जैसे सरल प्रकार का होगा।

इस तरह के रूपांतरण का उद्देश्य यह है कि वर्ट टाइप मुझे प्रत्येक साधारण प्रकार के लिए पूर्णांक स्थिर देता है जिसे मैं कहीं और स्टोर कर सकता हूं।

मैं जानना चाहता हूं कि ऐसा रूपांतरण संभव है या नहीं?

आपके समय के लिए धन्यवाद।

Answer 1

आप इस जानकारी पाने के लिए RTTI उपयोग कर सकते हैं बस TTypeInfo.Kind संपत्ति के मूल्य की जाँच करें:

चेक इस नमूना कोड

{$APPTYPE CONSOLE} 

uses 
    TypInfo, 
    Variants, 
    Generics.Collections, 
    SysUtils; 

type 
    TMyObject<T> = class (TObject) 
    function GetVarType(Value: T): TVarType; 
    end; 


function TMyObject<T>.GetVarType(Value: T): TVarType; 
begin 
    Case PTypeInfo(TypeInfo(T))^.Kind of 
    tkInteger : Result:=varInteger; 
    tkFloat : Result:=varDouble; 
    tkString : Result:=varString; 
    tkUString : Result:=varUString; 
    //add more types here 
    End; 
end; 

Var 
    LObj : TMyObject<Integer>; 
begin 
    try 
    Writeln(VarTypeAsText(TMyObject<Integer>.Create.GetVarType(5))); 
    Writeln(VarTypeAsText(TMyObject<String>.Create.GetVarType('Test'))); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

इस वापस आ जाएगी

Integer 
UnicodeString 

Answer 2

मैं नहीं देख सकता कि जेनेरिक के साथ ऐसा करना संभव कैसे हो सकता है। कंपाइलर को यह जानने की आवश्यकता है कि T प्रकार का उदाहरण किसी भी T के लिए Variant पर असाइन किया जा सकता है। आपके लिए संभव है कि संकलक को बताने का कोई तरीका नहीं है।

यदि यह सी ++ में टेम्पलेट थे तो यह छोटा होगा।

Answer 3

धन्यवाद लोग आपके उत्तरों के लिए:

जैसा कि @RRUZ ने दिखाया है कि यह possib है ले (मेरा मतलब सख्त आकलन नहीं है बल्कि डेटा के प्रकार को निकालने का मतलब है)। मैं किसी भी उत्तर की प्रतीक्षा करते समय अपने आप पर काम कर रहा था और एक और सामान्य समाधान मिला है।

तो मैं इसे यहाँ positing हूँ:

type 
    TMyObject<T> = class (TObject) 
    function GetVarType(Value: T): TVarType; 
    end; 


function TMyObject<T>.GetVarType(Value: T): TVarType; 
begin 
    Result := GetTypeData(TypeInfo(T)).varType; 
end; 

एक बार फिर धन्यवाद!

Answer 4

यह आरटीटीआई (2010 और नए) के साथ डेल्फी में मामूली रूप से हल करने योग्य है। बहुत बुरा आप 2009 तक ही सीमित रहते हैं :(

function TMyObject<T>.GetVarType(Value: T): TVarType; 
begin 
    Result := VarType(TValue.From<T>(Value).AsVariant); 
end; 

यह सरल प्रकार के लिए ही काम करता है, लेकिन यह एक बाधा प्रश्न में निर्दिष्ट किया गया था।