डेल्फी

Question

में निर्दिष्ट फ़ंक्शन में पॉइंटर सहेजना सुनिश्चित नहीं है कि टिटल सही है या नहीं, मुझे कुछ संग्रह में निर्दिष्ट फ़ंक्शन में एक पॉइंटर स्टोर करना है। मैं एक वैरिएबल

SomeFunctionName: string 

बेशक यह प्रकार एक स्ट्रिंग नहीं हो सकता है, सवाल यह है कि यह वास्तव में क्या होना चाहिए?

Answer 1

आप आमतौर पर एक फ़ंक्शन पॉइंटर चर का उपयोग करेंगे। उदाहरण के लिए:

type 
    TProcedure = procedure; 

procedure MyProc1; 
begin 
end; 

procedure MyProc2; 
begin 
end; 

var 
    Proc: TProcedure; 

..... 
Proc := MyProc1; 
Proc();//calls MyProc1 
Proc := MyProc2; 
Proc();//calls MyProc2 

यह कल्पना का सबसे आसान उदाहरण है। आप प्रक्रियात्मक प्रकार निर्दिष्ट कर सकते हैं जिनमें पैरामीटर सूची, ऑब्जेक्ट प्रकारों की विधि आदि शामिल हैं। भाषा गाइड के Procedural Types विषय में और पढ़ें।

Answer 2

आप वास्तव में प्रक्रिया/फ़ंक्शन को संग्रहीत नहीं कर रहे हैं लेकिन विधि संग्रहीत कर रहे हैं।

तो आपको इसके बजाय टीएम विधि का उपयोग करना चाहिए। ए टीएम विधि में ऑब्जेक्ट पॉइंटर और एक प्रक्रिया पॉइंटर है।

आप किसी अन्य पोस्ट में और अधिक विस्तार से देख सकते हैं: Save and restore event handlers

संपादित करें: ऐसा लगता है सवाल कुछ संग्रहीत TControl.onClick ईवेंट अनुरोध को दिखा के बाद वापस मूल करने के लिए संपादित किया गया है .....