Показать сообщение отдельно
  #2  
Старый 07.02.2010, 20:30
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,098
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

ну а где вызов функции? Адрес ты ее, типа, получил. Так вызови ее!!!

Код:
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('Неверно', [Edit1.Text]);

Func(.5);
end;
Ответить с цитированием