[SlavaGTRGT]

Код:

function GTRGT(d: Double): Integer;
begin
ShowMessage('Спасибо ');
end;

function b(d: Double): Integer;
begin
end;

exports
GTRGT,
b;


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]);

end;

Admin: Пользуемся тегами!

Помогите сделайть чтоб при вводе в "TEdit , GTRGT" сообщение 'Спасибо'-вылезло
Заранее спасибо!!! Ну или предаставте подобный, тип- "shareware"

[lmikle]

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

Код:

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;

[SlavaGTRGT]

СПАСИБО!!!!!!!!!!!!!!!!!