function NumTOChina(i:Real):string; //小写数字转大写
const
d= '零壹贰叁肆伍陆柒捌玖分角圆拾佰仟万拾佰仟亿拾佰仟';
var
m,k:string;
j:integer;
begin
i:=i*100;
k:= '';
m:=inttostr(trunc(i));
for j:=length(m) downto 1 do
k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+d[(strtoint(m[Length(m)-j+1])+1)*2]
+d[(10+j)*2-1]+d[(10+j)*2];
result:=k;
end;
const
d= '零壹贰叁肆伍陆柒捌玖分角圆拾佰仟万拾佰仟亿拾佰仟';
var
m,k:string;
j:integer;
begin
i:=i*100;
k:= '';
m:=inttostr(trunc(i));
for j:=length(m) downto 1 do
k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+d[(strtoint(m[Length(m)-j+1])+1)*2]
+d[(10+j)*2-1]+d[(10+j)*2];
result:=k;
end;