Delphi は文字列に基づいて関数のインスタンスを見つけて実行します。
キーワード: MethodAddress: メソッドのアドレスを取得します。このメソッドは公開する必要があります。
コード例:
Unit Unit1; インターフェイスは Windows、Messages、SysUtils、Variant、Classes、Graphics、Controls、Forms、Dialogs、StdCtrls を使用します; type TShowInfo =procedure(info:string) of object; // パラメータは ShowInfo と一致します。 TForm1 = クラス(TForm) Button1: TButton; プロシージャ Button1Click(Sender: TObject);宣言 } 公開プロシージャ ShowInfo(info: string); var Form1: TForm1; 実装 {$R *.dfm} { TForm1 } プロシージャ TForm1.ShowInfo(info: string); Button1Click(Sender: TObject); var s:TShowInfo; begin @s := MethodAddress('ShowInfo'); //ShowInfo のアドレスを取得 if @s <> nil then //空でない場合 begin s('中華人民共和国') //end end; を実行します。ご質問がございましたら、メッセージを残すか、このサイトのコミュニティにアクセスしてご連絡ください。お読みいただきありがとうございます。このサイトをご支援いただきありがとうございます。