Вызов скриптовой функции
Привет всем и каждому
Не могу понять в чём проблема. В при попытке вызвать скриптовую функцию (функция взята для примера)
function OK(i: real):real;
begin
ShowMessage(i);
result:=i+3;
showmessage(result);
end;
begin
end.
при помощи следующего кода
procedure TForm1.Button2Click(Sender: TObject);
begin
m:=strtofloat(edit1.Text);
m:=fsscript1.CallFunction('ok',m);
edit1.text:=floattostr(m);
end;
функцию вызывается и выполняется но не учитывается параметр переданный функцию. Подскажите в чем ошибка
Не могу понять в чём проблема. В при попытке вызвать скриптовую функцию (функция взята для примера)
function OK(i: real):real;
begin
ShowMessage(i);
result:=i+3;
showmessage(result);
end;
begin
end.
при помощи следующего кода
procedure TForm1.Button2Click(Sender: TObject);
begin
m:=strtofloat(edit1.Text);
m:=fsscript1.CallFunction('ok',m);
edit1.text:=floattostr(m);
end;
функцию вызывается и выполняется но не учитывается параметр переданный функцию. Подскажите в чем ошибка
Комментарии