Работа с собственными функциями
Приветствую всех!
Решил набросать несколько собственных функций, форматирующих текст нужным мне образом, чтобы в отчете уже все красиво просмотреть.
Написал функции, в обработчике UserFunction добавил следующее:
Далее при динамическом создании формы-потомка от TCustomPrintForm делаю следующее:
Отчет формируется, но именно в тех Memo, где я попытался использовать свои функции результат пустой.
Вот пример использования:
Не могу разобраться, почему пусто то. Вроде все правильно делаю. Помогите, пожалуйста.
Решил набросать несколько собственных функций, форматирующих текст нужным мне образом, чтобы в отчете уже все красиво просмотреть.
Написал функции, в обработчике UserFunction добавил следующее:
function TfrmCustomPrintForm.frxReportUserFunction(const MethodName: string;
var Params: Variant): Variant;
begin
inherited;
if MethodName = 'GetSummaToText' then
Result := GetSummaToText(Params[0])
else if MethodName = 'NumToStr' then
Result := NumToStr(Params[0])
else if MethodName = 'MonthToStrInGenitive' then
Result := MonthToStrInGenitive(Params[0]);
end;
Далее при динамическом создании формы-потомка от TCustomPrintForm делаю следующее:
frxReport.AddFunction('function NumToStr(s: string): string');
frxReport.AddFunction('function GetSummaToText(r: Real): string');
frxReport.AddFunction('function MonthToStrInGenitive(const Month: Byte): string', 'ctString', 'Месяц в родительном падеже');
Отчет формируется, но именно в тех Memo, где я попытался использовать свои функции результат пустой.
Вот пример использования:
[GetSummaToText(Sum(<qryGoods."SumPrice">, bndMaster))]
Не могу разобраться, почему пусто то. Вроде все правильно делаю. Помогите, пожалуйста.
Комментарии
То есть должно быть так:
Дай Бог тебе здоровья! Детям и внукам твоим!