एक प्रकार का सूचक आवंटित करना ठीक है और इसे एक अलग प्रकार के रूप में अलग-अलग आकार के रूप में निपटाना ठीक है?

Question

एक प्रकार का सूचक आवंटित करना ठीक है और इसे एक अलग प्रकार के रूप में अलग-अलग आकार के रूप में निपटाना ठीक है? मेरा मतलब यह है:

procedure TForm1.Button1Click(Sender: TObject); 
var A:PInt64; // 64bit 
    P:Pointer; 
    B:PDouble; // 64bit 
begin 
    New(A); 
    P:=A; 
    B:=P; 
    Dispose(B); 
end; 

मान लें कि मैं इसे केवल 8, 16, 32, 64 बिट हस्ताक्षरित और हस्ताक्षरित प्रकारों के लिए चाहता हूं। यह ठीक है ?

Answer 1

यदि टाइप किया जा रहा प्रकार एक प्रबंधित प्रकार नहीं है तो यह सुरक्षित है। आपके मामले में, न तो Int64 और न ही Double प्रबंधित प्रकार हैं और इसलिए यह सुरक्षित है।

एक प्रबंधित प्रकार का एक उदाहरण एक स्ट्रिंग, इंटरफ़ेस, संस्करण, अनाम प्रक्रिया/विधि, कामयाब प्रकार युक्त एक रिकार्ड, आदि

होगा जब आप किसी प्रबंधित प्रकार पर New और Dispose उपयोग करते हैं, वस्तु चाहिए आरंभ और अंतिम रूप दिया जाना चाहिए। जब आप किसी अप्रबंधित प्रकार पर New और Dispose का उपयोग करते हैं, तो यह GetMem और FreeMem पर कॉल करने के बराबर है।

वास्तव में, आपको एक ही आकार के रूप में इंगित किए जाने वाले प्रकारों की आवश्यकता नहीं है। जब FreeMem पर कॉल किया जाता है, तो प्रकार का आकार पास नहीं होता है। प्रत्येक ब्लॉक के लिए मेटाडेटा की ओर इशारा किया गया है जो इसे पूरे ब्लॉक को हटाने की अनुमति देता है।