मुझे एनम प्रकार

Question

के साथ "टाइप टाइप टाइप नहीं है" त्रुटि क्यों मिलती है मैंने निम्नलिखित enum प्रकार घोषित किया है जिसमें मैं चाहता हूं कि पहले सदस्य को सामान्य 0 (शून्य) के बजाय 1 (एक) का क्रमिक मान प्राप्त हो। :

type 
    TMyEnum = (
       meFirstValue = 1, 
       meSecondValue, 
       meThirdValue 
      ); 

अगर मैं TypeInfo(), जैसे फोन

GetEnumName(TypeInfo(TMyEnum), Ord(aValue)); 

त्रुटि:: GetEnumName के लिए एक कॉल के हिस्से के रूप(), मैं एक संकलक त्रुटि मिलती है

ऐसा क्यों है: "E2134 प्रकार 'TMyEnum' नहीं typeinfo है"?

मैं जानता हूँ कि कक्षाएं केवल है typeinfo अगर वे $ एम संकलक विकल्प सक्षम या साथ संकलित किए जाते हैं (कुछ वर्ग जो था से निकाले जाते हैं, इस तरह के TPersistent के रूप में), लेकिन मुझे नहीं लगता था कि कोई विशेष परिस्थितियों थे enum प्रकार के लिए typeinfo होने के लिए।

Answer 1

टाइप जानकारी उन enums के लिए समर्थित नहीं है जहां विशिष्ट ordinal मान असाइन किए जाते हैं जिसके परिणामस्वरूप एनम सदस्यों को क्रमिक मान होते हैं जो आमतौर पर संकलक द्वारा असाइन किए जाते हैं।

यदि विशिष्ट मान आवश्यक या वांछनीय हैं, तो "अप्रयुक्त" enum सदस्यों को आवश्यकतानुसार "पैड" enum में डालना होगा। जैसे (जोर केवल के लिए अतिरिक्त खरोज):

type 
    TMyEnum = (
       meNOTUSED1, {= 0} 
       meFirstValue, {= 1} 
       meSecondValue, 
       meThirdValue 
      ); 

एक subrange तो बाहर अप्रयुक्त प्रारंभिक मूल्य "फिल्टर" के लिए इस्तेमाल किया जा सकता है:

TValidMyEnum = meFirstValue..meThirdValue; 

यद्यपि आप तो मूल enum का नाम बदलने पर विचार करना चाह सकते हैं टाइप करें ताकि आपके उप-प्रकार का उपयोग आपके पूरे प्रोजेक्ट में किया जा सके।

एक subrange पर्याप्त नहीं है, तो enum शामिल है "अंतराल":

type 
    TMyEnum = (
       meNOTUSED1, {= 0} 
       meFirstValue, {= 1} 
       meSecondValue, 
       meThirdValue, 
       meNOTUSED2, 
       meFinalValue {= 5} 
      ); 

इस मामले में कोई बस संकलन समय सीमा अप्रयुक्त सदस्यों को बाहर करने की जाँच का विस्तार करने के तरीका है, लेकिन के एक जोड़े सेट प्रकार किसी भी आवश्यक क्रम चेकों को लागू करने के लिए व्यापार को सरल बनाएगा:

type 
    TMyEnums = set of TMyEnum; 

    const 
    meNOTUSED  = [meUNUSED1, meUNUSED2]; // .. etc as required 
    meValidValues = [Low(TMyEnum)..High(TMyEnum)] - meNOTUSED; 


    if NOT (aValue in meValidValues) then 
    // etc 

Answer 2

क्रमरहित enumerations और enumerations जो शून्य से शुरू नहीं है typeinfo जरूरत नहीं है। टाइपिन्फो लागू करने के लिए, पिछड़े संगतता मुद्दों के कारण, मौजूदा टीकेएन्यूमरेशन से इसे एक अलग प्रारूप में होना आवश्यक होगा।

मैंने डेल्फी 2010 के लिए एक टीके डिस्कोन्टिग्यूअन्यूअन्यूशन (या संभवतः बेहतर नामित सदस्य) को लागू करने पर विचार किया, लेकिन लाभ उनकी सापेक्ष कमी और गणना में कठिनाइयों पर विचार करने के लिए छोटा लग रहा था - आप श्रेणियों को कुशलतापूर्वक कैसे एन्कोड करते हैं? कुछ एन्कोडिंग कुछ परिदृश्यों के लिए बेहतर हैं, दूसरों के लिए बदतर।