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

отредактировано 21:32 Раздел: FastReport 3.0
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 параметра только на вход то все работает


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

Сергей.

Комментарии

  • отредактировано 21:32
    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;
    
  • отредактировано 21:32
    Спасибо
    Все получилось.

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.