Вызов функции по имени . 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 и FreePascal.

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

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