读取小数的问题

Question

比如12345.12这个数要返回整数和小数部分填入对应的 万 千 百 十 个 及对应的小数位。有如12345 没有小数位，则在返回的小数位后面的都是0，自己写了一些都不对，那位给个答案。不够分在加都行

Answer 1

function Frac(X: Extended): Extended;  是取得小数部分的函数，不是很明白你的意思

Answer 2

这样啊，用这个试：Edit1.Text := FormatFloat('#.00',12345); 可取其全部，你自己再分吧

Answer 3

对，用formatfloat函数，格式可参考DEPHI的帮助自己规定，然后用字符处理函数，如COPY（，，，），POS等自己分吧，应该没有问题的。