起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 226|回复: 3

【结帖】关于控制EDIT控件只能输入数字和小数点的问题**

[复制链接]
发表于 2007-10-18 16:24:55 | 显示全部楼层 |阅读模式
if not (Char(Key) in ['0','1','2','3','4','5','6','7','8','9',#8,'.']) then
  begin
    Key:=#0;
    JsDialogs.ShowWarning('','');
  end;


现在除了0-9和小数点外其他字符都不能输入,但是s例外。
回复

使用道具 举报

发表于 2007-10-18 16:58:17 | 显示全部楼层
楼主,使用增加一个临时字段吧,在那里把数据类型设置成folat
回复 支持 反对

使用道具 举报

发表于 2007-10-25 16:39:55 | 显示全部楼层
平台的'0'是字符串是uncode。
可以用=或者><判断,不能用in
比如if if key<>'0' then
回复 支持 反对

使用道具 举报

发表于 2007-10-31 16:41:33 | 显示全部楼层
由于长时间没有反馈,先结帖了
有问题请开新帖
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-29 15:33 , Processed in 0.038767 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表