निजी प्रकार सभी के लिए दृश्यमान हैं?

Question

कार्यक्रम के विकास के दौरान मैंने गलती से देखा कि कक्षाओं के भीतर घोषित सभी प्रकारों की वैश्विक दृश्यता है।

मैंने हमेशा सोचा है कि उनकी दृश्यता कक्षा तक ही सीमित है जब तक कि टाइप प्रकार नाम से TMyClass.TMytype.Value;

हूँ मैं निम्नलिखित की तरह वास्तव में गलत यहाँ कुछ कर रही है, संरचनाओं के रूप में:

unit MyTest; 

interface 

type TMyTest = class 
    constructor Create; 

    strict private 
     type TMyType = (NUL, SLEEP); 

end; 

implementation 

// ... 

इस (MyTest) इकाई का उपयोग करता है अन्य इकाइयों में संघर्ष का कारण बनता है।

यदि इकाई नींद (100) है; कॉल करें, यह TMyTest.TMyType.SLEEP के साथ संघर्ष करेगा और संघर्षों की रोकथाम इसलिए मैंने पहली जगह कक्षा और टीएमटी टाइप के अंदर एसएलईईपी को समाहित किया था।

कामकाज के लिए कोई सुझाव?

Answer 1

यह वास्तव में डिज़ाइन द्वारा है। आपके enum मानों में इकाई या वैश्विक दायरा है। वे निजी नहीं हैं क्योंकि वे कक्षा का हिस्सा नहीं हैं। वे वैश्विक स्तर पर scoped हैं।

enum मूल्यों scoped enums निर्देश शामिल करके स्थानीय गुंजाइश है करने के लिए के लिए आप की व्यवस्था कर सकते हैं:

{$SCOPEDENUMS ON} 

$SCOPEDENUMS निर्देश सक्षम बनाता है या डेल्फी कोड में scoped enumerations के उपयोग अक्षम करता है। अधिक विशेष रूप से, $SCOPEDENUMS नई गणनाओं की केवल परिभाषाओं को प्रभावित करता है, और केवल वैश्विक दायरे में गणना के मूल्य प्रतीकों को जोड़ने के नियंत्रण को नियंत्रित करता है।

{$SCOPEDENUMS ON} राज्य में, गणनाएं स्कॉप्ड की गई हैं, और वैश्विक मूल्य में enum मान जोड़े नहीं गए हैं। स्कोप्ड एनम के सदस्य को निर्दिष्ट करने के लिए, आपको enum के प्रकार को शामिल करना होगा।