Delphi encuentra una instancia de una función basada en una cadena y la ejecuta
Palabra clave : MethodAddress: obtiene la dirección del método. Este método debe publicarse.
Código de ejemplo:
unidad Unidad1; la interfaz utiliza Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios, Diálogos, StdCtrls tipo TShowInfo = procedimiento(info:string) del objeto //Declarar un tipo de procedimiento, los parámetros son consistentes con ShowInfo; TForm1 = clase(TForm) Botón1: TButton; procedimiento Botón1Click(Remitente: TObject privado { Declaraciones privadas } público { Público); declaraciones } procedimiento publicado ShowInfo(info: cadena); var Form1: TForm1; implementación {$R *.dfm} { TForm1 } procedimiento TForm1.ShowInfo(info: cadena) Button1Click(Remitente: TObject); var s:TShowInfo; comenzar @s := MethodAddress('ShowInfo'); //Obtener la dirección de ShowInfo si @s <> nil entonces //Si no está vacío start s('República Popular de China'); //Ejecutar end;Si tiene alguna pregunta, deje un mensaje o vaya a la comunidad de este sitio para comunicarse y discutir. Gracias por leer. Espero que pueda ayudar a todos. ¡Gracias por su apoyo a este sitio!