Передача var параметра в функцию

marvel · May 2006

Здравствуйте!

Допустим, есть функция:

function Test(var Right:Boolean):Boolean;
begin
 ...
 Right := True;
 ...
end;

При вызове ее с помощью CallFunction (CallFunction1) из программы переменная Right не изменяется! Она действует как локальная. Может я что-то не так делаю? Помогите разобраться...

-=Den=- · May 2006

Попробйте так (Delphi):

var
Params:Variant;
begin
fsScript1.AddRTTI;
fsScript1.Compile;
Params := VarArrayCreate([0,0],varVariant);
fsScript1.CallFunction1('Test',Params);
if Params[0] = True then ShowMessage('True');
end;

marvel · May 2006

Работает! Кстати об этом написано в документации, а я не обратил внимания...

Передача var параметра в функцию

Комментарии

Оставить комментарий