哪位哥哥姐姐遇到这样的问题？帮帮我呀

Question

我有这样一个数字：100.00我想在fastreport中显示为：十万    万     千    百   十  元  角 分
0       0       0     1    0   0   0  0应该怎样做啊？我试过这样传参数进去，但是第一笔可以实现，第二笔资料却不会改变，还是用的原值：t_Amount := formatfloat('0##,##0.#0',strtoint(f_Amount));
       t_pos :=pos('.',t_amount);
       t_shiwan := copy(t_amount,t_pos-6,1);
       t_wan    := copy(t_amount,t_pos-5,1);
       t_qian   := copy(t_amount,t_pos-4,1);
       t_bai    := copy(t_amount,t_pos-3,1);
       t_shi    := copy(t_amount,t_pos-2,1);
       t_yuan   := copy(t_amount,t_pos-1,1);
       t_jiao   := copy(t_amount,t_pos+1,1);
       t_fen    := copy(t_amount,t_pos+2,1);

Answer 1

把
t_Amount := formatfloat('0##,##0.#0',strtoint(f_Amount));
里面的逗号删掉

Answer 2

谢谢两位的回答，我想了一个办法，在band的beforeprint中写入这样的代码，但是结果好奇怪呢，十万      万   千  百 十 元  角  分
1         1     1  1  1   1  1   0怎么回事呢？begin       Amount := [FORMATFLOAT('0####0.#0',[Adoreport."Amount"])];
       showmessage(amount);
       pos :=[pos('.',amount)];
       shiwan := [copy(amount,pos-6,1)];
       wan    := [copy(amount,pos-5,1)];
       qian   := [copy(amount,pos-4,1)];
       bai    := [copy(amount,pos-3,1)];
       shi    := [copy(amount,pos-2,1)];
       yuan   := [copy(amount,pos-1,1)];
       jiao   := [copy(amount,pos+1,1)];
       fen    := [copy(amount,pos+2,1)];
       
  
end

Answer 3

amount:=int(amount*100)
begin
-----
end

Answer 4

pos :=[pos('.',amount)];
不要用delphi里的函数名做你的变量名
而且你为什么都用[]括起来了呢？这样编译能通过么？把你处理部分的代码整个贴出来看看

Answer 5

这位大哥，我的程序是写在fastreport的beforeprint中的，可以通过啊