سلام
دوست عزیز کد شما چند ایراد دارد که برایتان مینویسم :
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.AddFunction('function FloatToRialFarsi(i:Extended):string', 'ctString', 'The function always returns FloatToRialFarsi');
frxReport1.ShowReport;
end;
end.
1- گزارش باید load شود
2- سپس از AddFunction استفاده کنید
3- گزارش باید آماده شود ( قبل از نمایش )
frxReport1.LoadFromFile('...');
frxReport1.AddFunction('...');
.
.
.
frxReport1.PrepareReport();
frxReport1.ShowReport();
در ضمن در فایل گزارش باید تابع معرفی شده را درست بکار ببرید
فایل گزارش را ارسال کن تا تست کنم.
:)