看到有人做的在报表设计(也就是design页面)中放了个label,点击preview浏览可以显示合计金额的大写,
但不知道怎么实现的,有知道的么。或其他方式怎么实现,谢谢了
但不知道怎么实现的,有知道的么。或其他方式怎么实现,谢谢了
解决方案 »
- C/S Soekct编程问题。S端提示C已经断开,为什么C端还是连接状态?
- 求程序只能打开一个实例得代码,谢谢
- 接分帖之二(xzhbaggio)
- delphi中的角色和权限的控制
- 向另外一个程序发送鼠标消息
- 如何修改Access数据库中表的主键,用SQL语句完成?紧急求救!!!!!!!!
- 诸位,我想问个与delphi无关的问题,是关于显示器的。
- 如何做到按照要求随机从SQL数据库中读出记录啊,谢谢.
- idtcpserver中onexecute事件引用过程的同步问题
- 数值类型(总长6位,小数点2位)用fieldbyname('agedp').asfloat:=strtofloat(delagedp.text)合适否
- Delphi 数据库Table 过滤器
- DELPHI的图标问题
或者写delphi函数,然后赋值
或留个qq请教,请教在ReportBuilder写脚本函数,然后调用
或者写delphi函数,然后赋值
var smallMode:string;
bigChar,powerChar:string[2];
power,dotPos,i:integer;
begin
power:=-2;
smallMode:=FormatFloat('0.00',money);
dotPos:=System.Pos('.',smallMode);
for i:=length(smallMode) downto 1 do begin
if i=dotPos then continue;
case StrToInt(Copy(smallMode,i,1)) of
1:bigChar:='壹';
2:bigChar:='贰';
3:bigChar:='叁';
4:bigChar:='肆';
5:bigChar:='伍';
6:bigChar:='陆';
7:bigChar:='柒';
8:bigChar:='捌';
9:bigChar:='玖';
0:bigChar:='零';
end;
case power of
-3:powerChar:='厘';
-2:powerChar:='分';
-1:powerChar:='角';
0 :powerChar:='元';
1,5,9 :powerChar:='拾';
2,6,10:powerChar:='佰';
3,7,11:powerChar:='千';
4,12:powerChar:='万';
8 :powerChar:='亿';
end;
Inc(power);
Result:=bigChar+powerChar+Result;
end;
end;