Delphi ค้นหาอินสแตนซ์ของฟังก์ชันตามสตริงและดำเนินการ
คำสำคัญ : MethodAddress: รับที่อยู่ของวิธีการนี้จำเป็นต้องเผยแพร่
รหัสตัวอย่าง:
หน่วย Unit1; อินเทอร์เฟซใช้ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, StdCtrls; พิมพ์ TShowInfo = ขั้นตอน (ข้อมูล: สตริง) ของวัตถุ // ประกาศประเภทขั้นตอนพารามิเตอร์สอดคล้องกับ ShowInfo TForm1 = class (TForm) Button1: TButton; ขั้นตอน Button1Click (ผู้ส่ง: TObject); ส่วนตัว { ประกาศส่วนตัว } สาธารณะ { สาธารณะ ประกาศ } ขั้นตอน ShowInfo(ข้อมูล: string); end; var Form1: TForm1; Button1Click(ผู้ส่ง: TObject); var s:TShowInfo; start @s := MethodAddress('ShowInfo'); // รับที่อยู่ของ ShowInfo ถ้า @s <> ไม่มีแล้ว // ถ้าไม่ว่างให้ start s ('People's Republic of China'); // Execute end;หากคุณมีคำถามใด ๆ โปรดฝากข้อความหรือไปที่ชุมชนของไซต์นี้เพื่อสื่อสารและหารือกัน ขอขอบคุณสำหรับการอ่าน ฉันหวังว่ามันจะช่วยทุกคนได้