如果edit1.text中的数值是123456789 , 有函数可以把它转为987654321吗?

ccty3239968 2006-10-31 09:14:49
即是把数字倒过来
...全文
130 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccty3239968 2006-10-31
  • 打赏
  • 举报
回复
非常谢谢
老之 2006-10-31
  • 打赏
  • 举报
回复
1 取最后一个值:Edit1.Text[Length(Edit1.Text)]

2 用math单元的RoundTo
RoundTo(123456789.567,-1)
ccty3239968 2006-10-31
  • 打赏
  • 举报
回复
谢谢,可以了,一会儿结贴,
还有2个问题
1.如果edit1.text中的数值是123456789 ,怎么取最后一个数值,使其结果为9,或者使其结果12345678,即是保留最后一位不去?
2.如果edit1.text中的数值是123456789.567 ,怎么取小数.567,并使其结果为6?
谢谢
老之 2006-10-31
  • 打赏
  • 举报
回复
用StrUtils单元的ReverseString函数

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧