जेनिक्स, पॉलिमॉर्फिज्म, इंटरफेस: समाधान क्या है?

Question

मुझे पता है कि शीर्षक बहुत व्यापक है - बहुत अधिक फैल रहा है!

और मुझे आशा है कि यह प्रश्न विषयों पर एक बड़ी "जानकारी विकी चीज़" के लिए विकसित हो सकता है।

मैं क्या सीखा है - अब तक:

• जेनेरिक्स का उपयोग करते समय - अवधारणाओं को समझने (covariance and contravariance)।
• Do NOT "mis-use" विरासत के साथ संयुक्त जेनरिक की अवधारणा। मैंने किया और यह आपको सीधे covariance समस्याओं में सिर बना सकता है! सुनिश्चित करें कि आप जेनेरिक को अपने विरासत में सही बिंदु पर "तोड़ दें" - यदि आप दोनों को जोड़ रहे हैं।

(कृपया मुझे सही करें - अगर आपको लगता है कि मैं गलत हूं, गायब हूं या कुछ गलत समझा है)।

मेरे समस्या थी:

लेकिन अब से मैं अनगिनत घंटे खर्च करते हैं, यह पता लगाने की, इस "बड़ी पहेली" मैं मेरी मेज पर है हल करने के लिए कैसे की कोशिश कर रहा है। और मुझे आप में से कई उपयोगकर्ताओं के कुछ अच्छे जवाब मिल चुके हैं - लेकिन अब इसका समय बड़े पैमाने पर काम करने के लिए है।

मैं इस एक के साथ जेनेरिक्स में कदम: Generics and Polymorphism working together

और अब मैं थोड़े पर अटक कर रहा हूँ यह एक: Situations where Generics won't work

मैं क्यों सहप्रसरण समस्याओं के साथ खत्म - में मेरी कक्षा प्रक्रिया की वजह से है मेरा पदानुक्रम

तो मुझे आश्चर्य है कि इंटरफेस इस "गाथा" में मेरा अगला साहसिक कदम है या नहीं। एक कॉन्वर्सिस समस्या "एक कदम" कैसे करें। एक बात यह जानना है कि आपको वास्तव में यह समस्या है - एक और बात यह है कि "इसके आसपास कैसे काम करना है"।

तो यदि आप में से कोई भी अच्छा लोग "वहां से बाहर" इस ​​पर कोई राय है - मैं सभी कान हूं। असल में: मुझे इंटरफ़ेस के लिए जाने के लिए कहें (मैंने कभी खुद को खरोंच से नहीं किया है)। या .. मुझे उस दिशा में एक हड्डी फेंक दें जो आप सुझाएंगे।

मेरा वर्तमान स्रोत पूल शीर्ष लिंक से दूसरे लिंक में बताया गया है।

यहां मेरे पिछले post से एक छोटा स्निपेट है जो मेरी कॉन्वर्सिस समस्या दिखाता है। David कृपया समझाया - मैं झाड़ी में क्यों भाग गया .. लेकिन अब मुझे जानकारी चाहिए - इसके चारों ओर कैसे दौड़ें।

var  
    aList : TBaseList<TBaseObject>; // used as a list parameter for methods 
    aPersonList : TPersonList<TPerson>; 
    aCustomerList : TCustomerList<TCustomer>; 
begin 
    aPersonList := TPersonList<TPerson>.Create; 
    aCustomerList := TCustomerList<TCustomer>.Create; 

    aList := aCustomerList; <-- this FAILS !! types not equal .. 

end; 

सादर

Answer 1

आप जो भी करना चाहते हैं वह नहीं कर सकते हैं, लेकिन ऐसा नहीं है कि आप जेनेरिक का उपयोग कैसे करते हैं। रॉब केनेडी ने कहा, यह TCustomerList<TCustomer> और TPersonList<TPerson> होने का कोई मतलब नहीं है। जेनेरिक की सुंदरता यह है कि आप विभिन्न तत्व प्रकारों के लिए एक ही सूची का उपयोग कर सकते हैं। इसका मतलब है कि सूची और तत्व प्रकार में कोई निर्भरता नहीं होनी चाहिए।

कुछ की तरह आप कर सकते हैं:

procedure TSomething.ProcessList<T: TBaseObject>(const aList: TBaseList<T>); 
begin 
    // process the list using code that is independent of the actual type of T. 
end; 

... 

var 
    aCustomerList: TBaseList<TCustomer>; 
    aPersonList: TBaseList<TPerson>; 
begin 
    ProcessList(aCustomerList); 
    ProcessList(aPersonList); 

शायद आप जेनरिक संभाल नहीं किया प्रकार निष्कर्ष की T (कुछ प्रारंभिक संस्करणों निर्दिष्ट करने के लिए हो सकता है - यानी कि वह के प्रकार से T के प्रकार inferes पैरामीटर - बहुत अच्छी तरह से), यानी

ProcessList<TCustomer>(aCustomerList); 
    ProcessList<TPerson>(aPersonList); 

लेकिन यह, या कुछ समान है, आपको क्या करना चाहिए। कुछ और समझ में नहीं आता है, आईएमओ। एक वेरिएबल रखने की कोई आवश्यकता नहीं है जो इनमें से किसी भी सूचियों को पकड़ सके, जैसे कि aList। और यदि आपको वास्तव में एक की आवश्यकता है, तो आप केवल TObject का उपयोग कर सकते हैं, लेकिन यह आपको किसी भी उपयोगी तरीके से सूची का उपयोग करने की अनुमति नहीं देता है। और यह बहुत सामान्य नहीं है।

इंटरफेस इस समस्या से आपको बिल्कुल मदद नहीं करेगा। आप वर्गों को कुछ क्षमताओं, यानी सूचियों के तत्वों को इंटरफेस (अन्य प्रकार के बहुरूपता) के माध्यम से दे सकते हैं। लेकिन वह covariance संभाल नहीं होगा।

Answer 2

मैं के लिए जाना होगा:

TCustomCustomerList = class(TBaseList<TBaseObject>) 
end; 

TCustomerList = class(TCustomCustomerList) 
end; 

किया जाए या नहीं इस स्वीकार्य है में अपने डिजाइन पूरी तरह से एक अलग बात है। यदि आप जिस लक्ष्य को हासिल करने का प्रयास कर रहे हैं वह TCustomerList को TBaseList चर में असाइन करना है, तो यह जाने का तरीका होगा।