FASTREPORT中大写金额函数的问题？(30分)

我将自己定义的函数在MEMO中调用后，NTOC(ADOQUERY1。JE)，
在记录少的时候可以，当达到200多条记录后就说‘计算时出现错误‘，
少量记录没什么问题？各位有谁调试过这种情况，请各位帮忙？
谁有FASTREPORT2.47控件，里面有大写函数欢迎发邮件给我，谢谢各位大侠了。

whxxr@163.com

http://mysms.88188.net

Function MyChangeDX(v_je:real):String;
const
s:widestring='仟佰拾万仟佰拾元角分零壹贰叁肆伍陆柒捌玖';
var
v_money,i,j:integer;
v_midmoney:string;
v_dxje:widestring;
begin
j:= 1;result:='';
v_midmoney:=formatfloat('0',v_je*100);
If (v_je<=0) or (Length(v_midmoney) > 10) then
exit;
For i:=11-Length(v_midmoney) To 10do
begin
v_money:=strtoint(v_midmoney[j]);
v_dxje:=v_dxje+s[v_money+11]+s;
inc(j);
end;
result:=WideCharToString(pwidechar(v_dxje));
end;
试试这个函数吧！打印的时候调一下不就可以了。

接受答案了.