RMBFloatToChinese转换部分金额时有误，在个位数为0时大写不正确

RMBFloatToChinese转换部分金额时有误，在个位数为0时大写不正确<br />
<br />
procedure TForm1.btn1Click(Sender: TObject);<br />
var<br />
??c:Currency;<br />
begin<br />
??//c := StrToCurr(edt1.Text);<br />
??c := 20;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰拾元零】<br />
??c := 200;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰佰元零】<br />
??c := 20000;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰万元零】<br />
end;


在网上查找了下，下面链接写的转换函数不错。
https://blog.csdn.net/tht2009/article/details/73287225

[[i] 本帖最后由 wfymqj 于 2019-10-10 11:48 编辑 [/i]]

感谢报告，才看到。:L
我们修复一下。

刚查下来该问题之前已修正了。