fastreport 金额大小写问题

[lijunsam]

我从网上看到了这段程序，按照步骤进行了操作，但是结果没有在fastreport中显示出来 不知道什么原因？
function TFPKJFrm.MoneyCn(mmje: Double): string;
const
s1: string = '零壹贰叁肆伍陆柒捌玖';
s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万';
function StrTran(const S, s1, s2: string): string;
begin
Result := StringReplace(S, s1, s2, [rfReplaceAll]);
end;
var
S, dx: string;
i, Len: Integer;
begin
if mmje < 0 then
begin
dx := '负';
mmje := -mmje;
end;
S := Format('%.0f', [mmje * 100]);
Len := Length(S);
for i := 1 to Len do
dx := dx + Copy(s1, (Ord(S[i]) - Ord('0')) * 2 + 1, 2) + Copy(s2, (Len - i)
* 2 + 1, 2);
dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰',
'零'),
'零拾', '零'), '零角', '零'), '零分', '整');
dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零',
'零'),
'零亿', '亿'), '零万', '万'), '零元', '元');
if dx = '整' then
Result := '零元整'
else
Result := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');
end;

function TFPKJFrm.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if UpperCase(MethodName) = UpperCase('MoneyCn') then
Result := MoneyCn(Params[0]);
end;
2：窗体建立的时候添加自定义函数
procedure TFPKJFrm.FormCreate(Sender: TObject);
begin
frxReport1.AddFunction('function MoneyCn(mmje: Double): String;','Myfunction','小写金额转大写的函数');
end;
3：在fastreport中调用函数
[MoneyCn(StrToFloat(<frxDBDataset1."合计金额">))]

[de410]

人民币大小写转换
http://www.delphibbs.com/keylife/iblog_show.asp?xid=23634

[lijunsam]

为什么我在fastreport调用不显示结果呢？

在fastreport中调用函数
[MoneyCn(StrToFloat( <frxDBDataset1."合计金额">))]

[lijunsam]

哪位高手给仔细讲讲在fastreport中我该如何调用呢，越详细越好 万分感谢！

[iamduo]

[MoneyCn(100)]
先试试看。
再不行。
function TFPKJFrm.MoneyCn(mmje: Double): string;
begin
Result:='123';
end;
试试看

[火龙岛主]

http://blog.csdn.net/SmallHand/archive/2009/08/10/4430493.aspx

[MoneyToCn(3256.65)]
[MoneyToCn(<frxDBDataset1."UnitPrice">)]

[lijunsam]

[MoneyToCn( <frxDBDataset1."UnitPrice">)] 提示 运算式错误
[MoneyToCn(3256.65)] 提示 标识符为宣告
郁闷啊！！

[火龙岛主]

[Quote=引用 6 楼 lijunsam 的回复:]
[MoneyToCn( <frxDBDataset1."UnitPrice">)] 提示  运算式错误
[MoneyToCn(3256.65)] 提示 标识符为宣告
郁闷啊！！
[/Quote]晕倒，你应该对应到你自己的函数名称和数据集及字段名啊！
怎能照搬照抄！

[lijunsam]

哥们我是用的自己的 我没那么晕 但是确实出现以上那种错误了

[lijunsam]

你有qq吗 咨询你一下 我的365584836

[火龙岛主]

[Quote=引用 9 楼 lijunsam 的回复:]
你有qq吗 咨询你一下 我的365584836
[/Quote]
sorry, Cannot use QQ and any Community Tools in Company!

[iamduo]

[Quote=引用 10 楼 smallhand 的回复:]
引用 9 楼 lijunsam 的回复:
你有qq吗 咨询你一下 我的365584836

sorry, Cannot use QQ and any Community Tools in Company!
[/Quote]

火龙，是哪个公司的？
怎么好像跟我一样情况

[mytown98]

我也试过如下数据
[MoneyToCn(22.00)] 可以
[MoneyToCn(22)] 出错
[MoneyToCn( <frxDBDataset1."UnitPrice">)]可以
[MoneyToCn(SUM(<frxDBDataset2."subtotal">,DetailData1))]出错，错误表达式，没有定义SUM

[jmuydm]

在web应用时如何处理？

[都先生]

重新下载转换函数吧，这个不是那么头疼的问题