解决方案 »
- sql中 => 和 >=是一回事么?
- 如何遍历窗体所有组件
- 就百合的要求,看HT的悲惨,散分....
- 控件安装问题,高手帮忙呀~
- 有一个现成的chm格式的帮助文件,我想修改其中的某些内容,该如何做? 谢谢!!
- 怎么用SQL语句删除一条记录?
- 有人用过checklistbox吗?
- 紧急求助,现金(人民币)答谢,决不食言。
- 怎样在一张报表(Quickrep)中把一个字段的不同值分为几列同时打印呢?急!急!火急!火急!
- 如何将一个数据库的内容转换为Excel表格?
- 我安装了rxlib2.75,却不知怎么在delphi5中调用。 请帮忙指点。。
- 请问:登陆窗体及序幕窗体执行完进入主窗体后,光标处于运行状态,不能进行下一步操作,光标带有SQL字母,如何解决?
var
HZ,NS,NW,NA,N1,N2:string;
LA,X,Nk:integer;
begin
if NN>9999999999999.99 then
begin
MessageDlg('金额溢出.',mtError,[mbOk], 0);
HZ:='';
Result:=HZ;
exit;
end;
if NN=0 then
begin
HZ:='零元';
result:=HZ;
exit;
end;
NS:='零壹贰叁肆伍陆柒捌玖';
NW:='分角元拾佰仟万拾佰仟亿拾佰仟万';
NN:=StrToFloat(FormatFloat('0.00',NN));//这句是经过网友jycjd调试得出的结果
NA:=FloatToStr(NN*100);
LA:=length(NA);
X:=1;
HZ:='';
while X<=LA do
begin
NK:=Ord(NA[x])-Ord('0');
N1:=Copy(NS,NK*2+1,2);
N2:=Copy(NW,LA*2+1-X*2,2);
if (NK=0) AND ((N2='亿') OR( N2='万') OR( N2='元'))then
begin
if copy(HZ,Length(HZ)-1,2)='零' then
HZ:=copy(HZ,1,length(HZ)-2);
if copy(HZ,Length(HZ)-1,2)='亿' then
if N2='元' then
begin
N1:=N2;
N2:='零';
end
else
N2:=''
else
begin
N1:=N2;
N2:='零';
end
end
else if NK=0 then
begin
if copy(HZ,length(HZ)-1,2)='零' then
N1:='';
if N2='分' then
begin
if copy(HZ,length(HZ)-1,2)='零' then
HZ:=copy(HZ,1,length(HZ)-2)+'整'
else
HZ:=HZ+'整';
N1:='';
end;
N2:='';
end;
HZ:=HZ+N1+N2;
X:=X+1
end;
Result:=HZ;
end;