Вызов функции по имени

Delphi , Синтаксис , Синтаксис

Вызов функции по имени

Простой способ вызова функций по имени, если сигнатуры вызова совпадают

Code:

function TestFunc1(d: Double): Integer;

begin

....

end;

function TestFunc2(d: Double): Integer;

begin

....

end;

exports

TestFunc1,

TestFunc2;

procedure TForm1.Button1Click(Sender: TObject);

var

Func: function (d: Double): Integer;

begin

@Func := GetProcAddress(hInstance, PChar(Edit1.Text));

if @Func = nil then

raise Exception.CreateFmt('Функция с именем "%s" не существует', [Edit1.Text]);

ShowMessage(IntToStr(Func(10.63)));

end;

Автор: jack128

В статье описан простой способ вызова функций по имени в Delphi, используя процедуру GetProcAddress и проверку наличия функции с указанным именем.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Синтаксис ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 11:36:04/0.0052030086517334/1