Delphi trouve une instance d'une fonction basée sur une chaîne et l'exécute
Mot-clé : MethodAddress : Récupère l'adresse de la méthode. Cette méthode doit être publiée.
Exemple de code :
unit Unit1 ; l'interface utilise Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls ; type TShowInfo = procédure(info:string) d'objet //Déclare un type de procédure, les paramètres sont cohérents avec ShowInfo ; TForm1 = class(TForm) Button1 : TButton ; procédure Button1Click(Sender : TObject private { Déclarations privées } public { Public); déclarations } procédure publiée ShowInfo(info: string); var Form1: TForm1; implémentation {$R *.dfm} { TForm1 } procédure TForm1.ShowInfo(info: string); Button1Click (Expéditeur : TObject); var s:TShowInfo; start @s := MethodAddress('ShowInfo'); //Obtenir l'adresse de ShowInfo si @s <> nil then //Si elle n'est pas vide, start s('République populaire de Chine'); //Exécuter end;Si vous avez des questions, n'hésitez pas à laisser un message ou à vous rendre dans la communauté de ce site pour communiquer et discuter. Merci d'avoir lu, j'espère que cela pourra aider tout le monde. Merci pour votre soutien à ce site !