दो अंतर-जुड़े वर्गों की घोषणा कैसे करें?

Question

मेरे पास this जैसा है, लेकिन डेल्फी में एक प्रश्न है।

type 
    TThreadPopulator = class(TThread) 
    private 
    _owner:TASyncPopulator; //Undeclared identifier 
    end; 

type 
    TAsyncPopulator = class 
    private 
    _updater: TThreadPopulator; 
    end; 

उल्लेख प्रश्न का समाधान करने के लिए डेल्फी

Answer 1

मदद की Forward Declarations and Mutually Dependent Classes दस्तावेज़ देखें।

type (* start type section - one unified section "to rule them all" *) 
    TAsyncPopulator = class; (* forward declaration *) 

    TThreadPopulator = class(TThread) 
    private 
    _owner:TASyncPopulator; 
    end; 

    TAsyncPopulator = class (* final declaration - WITHIN that very section where forward declaration was made *) 
    private 
    _updater: TThreadPopulator; 
    end; 

स्रोत का उपयोग करें, ल्यूक! आपके डेल्फी इंस्टॉलेशन में पढ़ने और देखने और सीखने के लिए आपके पास पूर्ण वीसीएल और आरटीएल स्रोत हैं। और यह इस टेम्पलेट का बहुत उपयोग करता है। हर बार जब आप खुद से पूछते हैं कि "मैं इसे कैसे कर सकता हूं", बस सोचें कि "बोर्लैंड ने ऐसा कैसे किया" और सुंदर मौका है कि आप डेल्फी द्वारा प्रदत्त स्रोतों में पहले से ही तैयार किए गए उदाहरण प्राप्त कर सकते हैं।

Answer 2

किसी भी वर्ग परिभाषा से पहले इस प्रयोग लागू नहीं है। फॉरवर्ड क्लास डेल्फी 2010 में काम करता है। मुझे आपके पास डेल्फी का चुड़ैल संस्करण नहीं पता है, लेकिन यह एकमात्र समाधान है जिसे मैं सोच सकता हूं।

type 
TAsyncPopulator = Class; 

आशा मैं

Answer 3

एक आगे घोषणा का उपयोग कर के अलावा, आप भी इस का समाधान करने के लिए एक उपवर्ग बना सकते हैं:

TThreadPopulator = class(TThread) 
    type 
    TAsyncPopulator = class 
     _updater: TThreadPopulator; 
    end; 

    var 
    owner: TAsyncPopulator; 
end;