将一个小数的各位分解开，急用

Question

例如：12345.45 的万，千，百，十，个，十分位，百分位分别为1,2,3,4,5,4,5

Answer 1

var d:double;
d := '12345.45';
s := FloatToStr(d);for i:=1 to Length(s) do
if s[i]<>'.' then
ShowMessage(s[i]);

Answer 2

客户的销售票上人民币大写的单位已经排列好了，只需要把大写的金额的各位填到报表的相应位置就行了，大写转换我会，只是时间太紧，脑子有些乱，想看有没有现成的，好救个急，好了，我自己做，不麻烦大家了，省的有人说这说那。
 to：ahuige(灰不遛秋(前半身学医后半身学统计)) ，你比windindance(风舞轻扬) 老大厉害吗，人家都有耐心教菜鸟，你应该戒骄戒躁啊。
 我会尽快揭帖的

Answer 3

问题已解决，自己写的，谢谢大家
感谢windindance(风舞轻扬)
也对ahuige(灰不遛秋(前半身学医后半身学统计))的直率也表示谢意，我会努力成为非垃圾程序员的，谢谢你的当头棒喝，让我对自己有了更加情形的认识，也希望你能戒骄戒躁，早日升星。明天揭帖