1、如何将一个数值进行格式化,如:25 如同D中的函数一样,format('%.6d',[25]) 变成0000252、如何加入自定义函数,如:我要将小写金额转换大写金额各位星星,帮帮我吧!

解决方案 »

  1.   

    1没有问题,在每个memo里面都可以添加代码,在里面写格式化的代码,我这么做过
    2据我所知,fr3的确能够添加8个自定义函数,不过没有试过,如果实在找不到,可以试试在调用的时候修改数据集,我们以前就是这样做的。
      

  2.   

    2.22. How to use own function?Use TfrReport.OnUserFunction event. Here is simple example:procedure TForm1.frReport1UserFunction(const Name: String;
      p1, p2, p3: Variant; var val: Variant);
    begin
      if AnsiCompareText('SUMTOSTR', Name) = 0 then
        val := My_Convertion_Routine(frParser.Calc(p1));
    end;After this, you can use SumToStr function in any place of report
    (in any expression or script).