VPF::FastReport4. Поключение внешней функции

huminclouds

Дата 5.10.2010, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

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

Код


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 работает на ура. Подскажите, пожалуйста, в чем причина ошибки.

Frees

Дата 6.10.2010, 06:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Код


Memo1.Text := NumToWords(VarToStr(<frxDBDataset1."TOTAL">))

--------------------

Кольцов Виктор Владимирович

huminclouds

Дата 6.10.2010, 07:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

Ах, если бы все было так просто... Но дело совсем не в этом. Функция принимает параметр без ошибок. Ошибка возникает как раз на выходе. Как видно из текста ошибки, функция возвращает Null-значение независимо от параметра.

huminclouds

Дата 6.10.2010, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.7.2009

Репутация: нет
Всего: нет

Невнимательно я просто мануал проштудировал.

Цитата

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

Код


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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »