function SmallTOBig(small: real): string;
var
SmallMonth, BigMonth: string;
wei1, qianwei1: string[2];
qianwei, dianweizhi, qian: integer;
begin
qianwei := -2;
Smallmonth := formatfloat('0.00', small);
dianweizhi := pos('.', Smallmonth);
for qian := length(Smallmonth) downto 1 do
begin
if qian <> dianweizhi then {如果读到的不是小数点就继续}
begin
case strtoint(copy(Smallmonth, qian, 1)) of
1: wei1 := '壹'; 2: wei1 := '贰';
3: wei1 := '叁'; 4: wei1 := '肆';
5: wei1 := '伍'; 6: wei1 := '陆';
7: wei1 := '柒'; 8: wei1 := '捌';
9: wei1 := '玖'; 0: wei1 := '零';
end;
case qianwei of
-3: qianwei1 := '厘';
-2: qianwei1 := '分';
-1: qianwei1 := '角';
0: qianwei1 := '元';
1: qianwei1 := '拾';
2: qianwei1 := '佰';
3: qianwei1 := '仟';
4: qianwei1 := '万';
5: qianwei1 := '拾';
6: qianwei1 := '佰';
7: qianwei1 := '千';
8: qianwei1 := '亿';
9: qianwei1 := '十';
10: qianwei1 := '佰';
11: qianwei1 := '仟';
end;
inc(qianwei);
BigMonth := wei1 + qianwei1 + BigMonth;
end;
end;
SmallTOBig := BigMonth;
end;