Подключение своей процедуры возвращающей параметры
Delphi 7, Fast - 3.23.1
Подключаю процедуру возвращающую параметры
и не пропускает компилятор
Procedure A_SPERIOD(ADATE : VARIANT;
VAR ADT, ACR : VARIANT);
Подключаю через frxReportUserFunction
function TPrintMod.frxReportUserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'A_SPERIOD' then
A_SPERIOD(Params[0],Params[1],Params[2]);
end;
Компилятор говорит "Constant object cannot be passed as var parameter"
Последние 2 параметра (Params[1],Params[2]) возвращает процедура
(С функциями проблем нет, а с процедурой заткнулся)
и если в процедуре сделать все 3 параметра только на вход то все работает
Помогите плиз.
Сергей.
Подключаю процедуру возвращающую параметры
и не пропускает компилятор
Procedure A_SPERIOD(ADATE : VARIANT;
VAR ADT, ACR : VARIANT);
Подключаю через frxReportUserFunction
function TPrintMod.frxReportUserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'A_SPERIOD' then
A_SPERIOD(Params[0],Params[1],Params[2]);
end;
Компилятор говорит "Constant object cannot be passed as var parameter"
Последние 2 параметра (Params[1],Params[2]) возвращает процедура
(С функциями проблем нет, а с процедурой заткнулся)
и если в процедуре сделать все 3 параметра только на вход то все работает
Помогите плиз.
Сергей.
Комментарии
Все получилось.