تعثر دلفي على نسخة من دالة مبنية على سلسلة وتنفذها

تعثر دلفي على نسخة من دالة مبنية على سلسلة وتنفذها

الكلمة الأساسية : عنوان الطريقة: احصل على عنوان الطريقة. يجب نشر هذه الطريقة.

رمز المثال:

 تستخدم واجهة الوحدة Unit1 Windows والرسائل وSysUtils والمتغيرات والفئات والرسومات وعناصر التحكم والنماذج ومربعات الحوار وStdCtrls؛ اكتب TShowInfo = الإجراء (المعلومات: سلسلة) للكائن؛ TForm1 = class(TForm) Button1: TButton; الإجراء Button1Click(Sender: TObject); الإعلانات } الإجراء المنشور ShowInfo(info: string); var Form1: TForm1; Installation {$R *.dfm} { TForm1 } الإجراء TForm1.ShowInfo(info: string); Button1Click(Sender: TObject var s:TShowInfo begin @s := MethodAddress('ShowInfo'); // احصل على عنوان ShowInfo إذا كان @s <> nil ثم // إذا لم يكن فارغًا، فابدأ s('جمهورية الصين الشعبية'); // تنفيذ النهاية;

إذا كان لديك أي أسئلة، يرجى ترك رسالة أو الذهاب إلى مجتمع هذا الموقع للتواصل والمناقشة. شكرًا لك على القراءة، وآمل أن تتمكن من مساعدة الجميع. شكرًا لك على دعمك لهذا الموقع.