Delphi menemukan sebuah instance dari suatu fungsi berdasarkan string dan menjalankannya
Kata Kunci : MethodAddress: Mendapatkan alamat metode ini perlu dipublikasikan.
Contoh kode:
unit Unit1; antarmuka menggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls tipe TShowInfo = procedure(info:string) objek; TForm1 = kelas(TForm) Button1: TButton; procedure Button1Click(Pengirim: TObject); private { Deklarasi pribadi } public { Public deklarasi } prosedur yang diterbitkan ShowInfo(info: string); akhir; var Form1: TForm1; implementasi {$R *.dfm} { TForm1 } prosedur TForm1.ShowInfo(info: string); Button1Click(Pengirim: TObject); var s:TShowInfo; mulai @s := MethodAddress('ShowInfo'); //Dapatkan alamat ShowInfo if @s <> nil lalu //Jika tidak kosong mulai s('Republik Rakyat Tiongkok'); //Jalankan akhir;Jika Anda memiliki pertanyaan, silakan tinggalkan pesan atau kunjungi komunitas situs ini untuk berkomunikasi dan berdiskusi. Terima kasih telah membaca. Saya harap ini dapat membantu semua orang.