设置如下: ———- function TForm1.MoneyCn(mmje: Double): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result
标签： 报表
[控件]FastReport调用Delphi中的自定义函数
有些东西始终都是需要互相访问的，报表使用程序的函数也是家常了。 1.载入调用函数名。 procedure TFKy_Fayun.FormCreate(Sender: TObject); begin frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数'); end; 2.在报表的UserFunction事件添加如下代
将fastreport数据分左右2列
在开发中针式3联单，大多情况都是一页，但是数据多行后，往往要利用纸张的位置，节约嘛，所以就需要将打印设成左右结构。 方法如下：在fastreport中的pagesetings中other options 中将列数设为2，即可。