Код:
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"