N newhfy Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-06 #1 fastreport3 如何用自定义函数以及如何调用?fastreport3与fastreport2.5有很大区别!有知道的,请指点!另外在fastreport3中不能用copy函数,设计时可以,但在运行中就报错,提示'不同类型的转换'.
fastreport3 如何用自定义函数以及如何调用?fastreport3与fastreport2.5有很大区别!有知道的,请指点!另外在fastreport3中不能用copy函数,设计时可以,但在运行中就报错,提示'不同类型的转换'.
N newhfy Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-06 #2 fastreport3 如何用自定义函数以及如何调用?fastreport3与fastreport2.5有很大区别!有知道的,请指点!另外在fastreport3中不能用copy函数,设计时可以,但在运行中就报错,提示'不同类型的转换'.
fastreport3 如何用自定义函数以及如何调用?fastreport3与fastreport2.5有很大区别!有知道的,请指点!另外在fastreport3中不能用copy函数,设计时可以,但在运行中就报错,提示'不同类型的转换'.
D DZHZH2000 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-08 #4 function Tfrm_dybd.fr_dybdUserFunction(const MethodName: string; var Params: Variant): Variant; begin //MethodName参数必须大写 if MethodName = 'REALTOCHNNUM' then result := RealToChnNum(Params[0], Params[0]); end; procedure Tfrm_dybd.FormCreate(Sender: TObject); begin fr_dybd.AddFunction('function RealToChnNum(realnum: real; Width: integer): string', '自定义函数', '小写金额转换为大写金额。'); end;
function Tfrm_dybd.fr_dybdUserFunction(const MethodName: string; var Params: Variant): Variant; begin //MethodName参数必须大写 if MethodName = 'REALTOCHNNUM' then result := RealToChnNum(Params[0], Params[0]); end; procedure Tfrm_dybd.FormCreate(Sender: TObject); begin fr_dybd.AddFunction('function RealToChnNum(realnum: real; Width: integer): string', '自定义函数', '小写金额转换为大写金额。'); end;
N newhfy Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-08 #5 原来addfunciton要放在create中,谢谢了。