Delphi находит экземпляр функции на основе строки и выполняет его.
Ключевое слово : MethodAddress: Получите адрес метода. Этот метод необходимо опубликовать.
Пример кода:
модуль Unit1; интерфейс использует Windows, сообщения, SysUtils, варианты, классы, графику, элементы управления, формы, диалоги, StdCtrls; тип TShowInfo = процедура (информация: строка) объекта; // Объявляем тип процедуры, параметры соответствуют ShowInfo; TForm1 = класс (TForm) Button1: TButton; процедура Button1Click (Отправитель: TObject); частное {Частные объявления} Public {Public); объявления } опубликованная процедура ShowInfo (информация: строка); вар Form1: TForm1; реализация {$R *.dfm} { TForm1 } процедура TForm1.ShowInfo (информация: строка); начало ShowMessage (информация); Button1Click (Отправитель: TObject); var s: TShowInfo; начало @s: = MethodAddress ('ShowInfo'); //Получаем адрес ShowInfo if @s <> nil then //Если не пусто, start s('Китайская Народная Республика'); //Выполняем end;Если у вас есть какие-либо вопросы, оставьте сообщение или зайдите в сообщество этого сайта, чтобы пообщаться и обсудить. Надеюсь, это поможет всем. Спасибо за вашу поддержку этого сайта!