मैं सामान्य प्रकार के आधार पर सूचक कैसे घोषित कर सकता हूं?

Question

मैं इस तरह एक वर्ग है:

type A = class 
    procedure<T> DoStuff(tPtr: ^T); 
end; 

लेकिन जब मैं संकलन करने की कोशिश, डेल्फी मुझे इस त्रुटि देता है:

[DCC Error] RPML.pas(57): E2029 Identifier expected but '^' found 

मैं एक डेल्फी प्रक्रिया में एक पैरामिट्रीकृत प्रकार के लिए सूचक का उपयोग कर सकते कैसे ? मैं पूरी कक्षा को एक टेम्पलेट वर्ग नहीं बनाना चाहता हूं।

type 
    TMyGeneric<T> = class 
    type 
    P = ^T; 
    public 
    procedure DoStuff(tPtr: P); 
    end; 

और अगर आप एक वर्ग विधि (यानी नहीं एक उदाहरण विधि) चाहते हैं तो आप इसे इस तरह से कर सकते हैं:

Answer 1

यह आप सामान्य वर्ग में एक नेस्टेड प्रकार के रूप में एक सूचक प्रकार की घोषणा करने की जरूरत है ऐसा करने के लिए :

type 
    TMyGeneric<T> = record 
    type 
    P = ^T; 
    public 
    class procedure DoStuff(tPtr: P); static; 
    end; 

var 
    int: Integer; 
... 
TMyGeneric<Integer>.DoStuff(@int); 

या एक वर पैरामीटर का उपयोग:

type 
    TMyGeneric<T> = record 
    public 
    class procedure DoStuff(var a: T); static; 
    end; 

यह recor उपयोग करने के लिए आम हो रहा है सामान्य प्रकार के वर्गों के बजाय डीएस जो तत्काल नहीं मिलता है।

अंत में, आपके पास क्लास जेनेरिक बनाने के बिना एक सामान्य विधि डेल्फी में नहीं हो सकता है।

:

Thorsten के जवाब से पता चलता वर्ग सामान्य बनाने के बिना एक सामान्य विधि को लागू करने के लिए कैसे, कि ++ टेम्पलेट कोड निम्नलिखित सी की की डेल्फी एनालॉग है: दूसरे शब्दों में निम्नलिखित सी ++ टेम्पलेट कोड का कोई अनुरूप है

class C { 
public: 
    template <typename T> 
    int SomeTemplateFunction(T* data) { 
     printf("Address of parameter is %p\n", data); 
     return 0; 
    } 
}; 

int a; 
char c; 
C cinst; 
cinst.SomeTemplateFunction<int>(&a); 
cinst.SomeTemplateFunction<char>(&c); 

थॉर्स्टन का उत्तर आपको कक्षा का कार्य देता है लेकिन टिप्पणियों में आप कहते हैं कि आप एक सामान्य सदस्य फ़ंक्शन की तलाश में हैं।

type 
    TMyClass = class 
    public 
    procedure DoStuff<T>(var a: T); 
    end; 

procedure TMyClass.DoStuff<T>(var a: T); 
begin 
end; 

... 
var 
    instance: TMyClass; 
    i: Integer; 
    s: string; 
... 
    instance.DoStuff<Integer>(i); 
    instance.DoStuff<string>(s); 

हालांकि, क्या मैं के साथ संघर्ष कर रहा हूँ कैसे वास्तव में तुम बहुत डेल्फी में, इस के साथ उपयोगी कुछ भी, कि बस के रूप में प्रभावी रूप से एक सामान्य समाधान के बिना नहीं किया जा सकता है कर सकता है।

मैं किसी भी सुझाव की सराहना करता हूं और उन्हें समायोजित करने के उत्तर को संपादित करने में प्रसन्नता होगी।

Answer 2

आप विधि के लिए कक्षा से सामान्य पैरामीटर स्थानांतरित कर सकते हैं, और एक सूचक प्रकार के बजाय वर का उपयोग करें:

type 
    TMyGeneric = record 
    class procedure DoStuff<T>(var aParam: T); static; 
    end; 

var 
    int : Integer; 
    s : string; 
... 
TMyGeneric.DoStuff<Integer>(int); 
TMyGeneric.DoStuff<string>(s); 

संपादित करें: दुर्भाग्य से डेल्फी संकलक प्रकार निष्कर्ष प्रदर्शन करने के लिए सक्षम होने के लिए प्रतीत नहीं होता जब var पैरामीटर का उपयोग किया जाता है जो विधि कॉल पर < ..> का उपयोग करके जेनेरिक पैरामीटर प्रकार को स्पष्ट रूप से निर्दिष्ट करना आवश्यक बनाता है।

"var" < के बिना "> छोड़ा जा सकता है (लेकिन तब विधि अब पारित चर को संशोधित नहीं कर सकती है)।