Подключение своей процедуры возвращающей параметры

serg_borodin

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 параметра только на вход то все работает


Помогите плиз.

Сергей.

Noskov

var P1, P2: Variant; //Или какой-то другой тип
if MethodName = 'A_SPERIOD' then begin
  P1:=Params[1]; P2:=Params[2]; 
  A_SPERIOD(Params[0],P1,P2);
  Params[1]:=P1; Params[2]:=P2;
end;

serg_borodin

Спасибо
Все получилось.