प्रकार की जाँच के साथ FreeAndNil का एनालॉग

डेल्फी में मुक्त वस्तुओं के "फांसी" लिंक की समस्या से निपटने के लिए, आमतौर पर SysUtils.FreeAndNil प्रक्रिया का उपयोग किया जाता है। FreeAndNil प्रक्रिया ऑब्जेक्ट को मुक्त करती है और चर को nil पर सेट करती है।
लेकिन मुझे हमेशा यह तथ्य पसंद नहीं आया कि यह प्रक्रिया एक टाइप्ड पैरामीटर नहीं है। और वहां आप न केवल एक वस्तु, बल्कि एक स्ट्रिंग, एक संख्या और किसी भी चर को पारित कर सकते हैं। स्वाभाविक रूप से, ऐसे गलत पैरामीटर के साथ कॉल करने पर समस्याएं होंगी। क्या सबसे अप्रिय समस्याएं एक पूरी तरह से अलग जगह में सामने आ सकती हैं।
मैं चाहूंगा कि संकलक मुझे नियंत्रित करें, अधिमानतः संकलन मंच पर। लेकिन अफसोस, मुझे ऐसा समाधान नहीं मिला, जिसमें कंपाइलर ने टूबजेक्ट के साथ असंगत होने के साथ छूट और अशक्त प्रक्रिया को कॉल करने की कोशिश की हो। लेकिन मुझे एक ऐसा तरीका मिला, जिसमें पहली कॉल पर रनटाइम में इस तरह की कोशिश का पता चला था। सामान्य तौर पर, एक बार देखना बेहतर होता है। यहाँ FreeAndNil के सुरक्षित एनालॉग के लिए कोड है।

यूनिट CommonUnit ;
इंटरफ़ेस
टाइप
TobjectHelper = Tobject के लिए क्लास हेल्पर
सार्वजनिक
प्रक्रिया नि: शुल्क ( var Obj ) ;
अंत ;
कार्यान्वयन
प्रक्रिया TObjectHelper । नि: शुल्क ( var Obj ) ;
शुरू करना
मुखर ( स्व = पॉइंटर ( ओबज ) , 'टोबेजेक्ट हेल्पर.फ्रीसेल्फ गलत टाइप' ) ;
यदि स्व <> शून्य हो तो
शुरू करना
सूचक ( ओबज ) : = नील ;
नष्ट;
अंत ;
अंत ;
अंत ।

पैरामीटर में, विधि चर के संदर्भ को पारित करती है जिसे रीसेट किया जाना चाहिए। यह माना जाता है कि यह वही वस्तु होगी जिसकी विधि कहा जा रहा है। यहाँ एक उदाहरण है: Obj.Free (Obj);
जब यह मॉड्यूल जुड़ा होता है, तो कंपाइलर आपको मानक के सभी कॉल को नए ओब्ज.फ्री (ओबज) के साथ बदलने के लिए मजबूर करेगा। जो मेरे लिए सुविधाजनक रहा। यदि मानक नि: शुल्क के पूर्ण प्रतिस्थापन की आवश्यकता नहीं है, तो आप टोबेजेक्ट हेल्पर में विधि का नाम बदल सकते हैं।
परिणामस्वरूप, हमें विधि में मानक FreeAndNil के समान कार्यक्षमता मिलती है, जिसे अन्य प्रकारों के लिए नहीं कहा जा सकता है। अतिरिक्त प्रकार का नियंत्रण। और संकलक उन स्थानों पर संकेत देता है जहां मानक फ्री रहे। Minuses में, कुछ हद तक बदसूरत कॉल होने दें, चर नाम को दो बार निर्दिष्ट करने की आवश्यकता है।
हां, डेल्फी के नए संस्करणों में इस समस्या को अधिक खूबसूरती से हल किया जा सकता है, लेकिन मैं डेल्फी 2007 तक सीमित था।