Delphi encontra uma instância de uma função baseada em uma string e a executa
Palavra-chave : MethodAddress: Obtenha o endereço do método. Este método precisa ser publicado.
Código de exemplo:
unit Unit1; interface usa Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários, Diálogos, StdCtrls; tipo TShowInfo = procedimento(info:string) do objeto; TForm1 = class(TForm) Button1: TButton; procedimento Button1Click(Sender: TObject); declarações } procedimento publicado ShowInfo(info: string); final var Form1: TForm1; implementação {$R *.dfm} { TForm1 } procedimento TForm1.ShowInfo(info: string); Button1Click(Remetente: TObject var s:TShowInfo; start @s := MethodAddress('ShowInfo'); //Obter o endereço de ShowInfo if @s <> nil then //Se não estiver vazio, comece s('República Popular da China');Se você tiver alguma dúvida, deixe uma mensagem ou vá até a comunidade deste site para se comunicar e discutir. Obrigado pela leitura, espero que possa ajudar a todos.