Поключение внешней функции

hic · October 2010

Подключаю к отчету внешнюю функцию (представление числа прописью). Делаю все, как написано в мануале:

function TForm1.frxReport1UserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
  if MethodName = 'NumToWords' then
    Result := NumToWords(Params[0]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.AddFunction('function NumToWords(num: String): String');
  frxReport1.ShowReport();
end;

В скрипте отчета, добавляю результат функции NumToWords в Memo:

procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);                                   
begin
  Memo1.Text := NumToWords(IntToStr(<frxDBDataset1."TOTAL">));
end;

На что при построении отчета вылетает ошибка:

написал:

Could not convert variant of type (Null) into type (OleStr)

Функция в Delphi работает на ура. Подскажите, пожалуйста, в чем причина ошибки.

gpi · October 2010

Имя метода должно быть в верхнем регистре

function TForm1.frxReport1UserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
  if MethodName = 'NUMTOWORDS' then
    Result := NumToWords(Params[0]);
end;

hic · October 2010

О дааа. Благодарю, gpi.

oborisov1979 · October 2010

hic написал: »

О дааа. Благодарю, gpi.

А во Free Report такое возможно?

gpi · October 2010

Да. TfrReport.OnUserFunction есть и во FreeReport
Пример есть в папке Demos\Reports

dron-s · October 2010

подробная статься о том как работать с пользовательскими функциями
http://www.reportingfor.info/ru/news.php?extend.76.4

Поключение внешней функции

Комментарии

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