नेट 'टाइप' वर्ग डेल्फी

Question

वैकल्पिक मैं डेल्फी में लिखना चाहते हैं (2009 - तो मैं सामान्य शब्दकोश वर्ग है) कि सी # कोड के लिए कुछ इसी तरह:

Dictionary<Type, Object> d = new Dictionary<Type, Object>(); 
d.Add(typeof(ISomeInterface), new SomeImplementation()); 
object myObject = d[typeof(ISomeInterface)]; 

कोई भी विचार?

अग्रिम धन्यवाद,

ह्रिस्टो

Answer 1

इंटरफेस के लिए, आप एक PTypeInfo सूचक है, जो संकलक जादू समारोह TypeInfo द्वारा दिया जाता है का उपयोग करना चाहेंगे। TypInfofo TypInfo इकाई में घोषित किया गया है।

type 
    TInterfaceDictionary = TObjectDictionary<PTypeInfo, TObject>; 
var 
    d: TInterfaceDictionary; 
    myObject: TSomeImplementation; 
begin 
    d := TInterfaceDictionary.Create([doOwnsValues]); 
    d.Add(TypeInfo(ISomeInterface), TSomeImplementation.Create()); 
    myObject = d[TypeInfo(ISomeInterface)]; 
end; 

बेशक, यदि यह इंटरफेस के बजाय कक्षाएं थी, तो आप केवल एक TClass संदर्भ का उपयोग कर सकते थे।

Answer 2

तो यह वास्तव में एक TInterfaceDictionary है आप इसे इस प्रकार लिख सकते हैं:

type 
    TInterfaceDictionary = TObjectDictionary<TGUID, TObject>; 

जाहिर है यह प्रत्येक इंटरफेस का उपयोग करने के लिए एक GUID की आवश्यकता है।

कारण कुछ संकलक जादू करने के लिए आप यह काफी बस का उपयोग कर सकते हैं:

d.Add(ISomeInterface, TSomeImplementation.Create()); 

(मेसन: नमूना कोड अपहरण के लिए खेद है)