社区
Delphi
帖子详情
如何判断一个字符串中全是数字,而没有其他字符?
Juddy
2000-08-25 04:23:00
我想让用户输入一个数字的字符串,那么如何判断这个字符串中全是数字,而没有其他字符?我知道可以用Keypress事件判断ASCII码,但是DELPHI中有没有一个字符串呢?想VB那样。
...全文
320
9
打赏
收藏
如何判断一个字符串中全是数字,而没有其他字符?
我想让用户输入一个数字的字符串,那么如何判断这个字符串中全是数字,而没有其他字符?我知道可以用Keypress事件判断ASCII码,但是DELPHI中有没有一个字符串呢?想VB那样。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pjy
2000-08-26
打赏
举报
回复
倾向于使用HANK的观点。感觉更快更简单一些!
SimonDW
2000-08-26
打赏
举报
回复
简单点在keypress加
if (not key in['0'..'9']) then key=#0;
deardelphi
2000-08-26
打赏
举报
回复
用Keypress事件
if integer(key) <> vk_Back then
if not (key in ['0'..'9','.']) then key := #0;
其实也很简单实用呀。
deardelphi
2000-08-26
打赏
举报
回复
用
if integer(key) <> vk_Back then
if not (key in ['0'..'9','.']) then key := #0;
其实也很简单实用呀。
Sayhigh
2000-08-25
打赏
举报
回复
用Val函数用法看帮助去吧
Hank
2000-08-25
打赏
举报
回复
用异常以及转换!
try
begin
StrToFloat(Edit1.Text)
end
finally
ShowMessage('必须输入数字!');
dandycheung
2000-08-25
打赏
举报
回复
如果你是让一个编辑控件不能输入数字以外的字符,则可以:
var
dwStyle: DWORD;
...
// 假设你的编辑控件叫 edtEdit
dwStyle := GetWindowLong(edtEdit.Handle, GWL_STYLE);
dwStyle := dwStyle or ES_NUMBER;
SetWindowLong(edtEdit.Handle, GWL_STYLE, dwStyle);
// 搞定
dandycheung
2000-08-25
打赏
举报
回复
如果你是让一个编辑控件不能输入数字以外的字符,则可以:
var
dwStyle: DWORD;
...
// 假设你的编辑控件叫 edtEdit
dwStyle := GetWindowLong(edtEdit.Handle, GWL_STYLE);
dwStyle := dwStyle or ES_NUMBER;
SetWindowLong(edtEdit.Handle, GWL_STYLE, dwStyle);
// 搞定
meijg
2000-08-25
打赏
举报
回复
建议你还是有最简单的方法,StrToINt(),然后截获错误消息进行处理,比判断ASCII来的简单和快,那样的话还要判断一大堆符号,比如正负号,小数点,科学计数符号等
JavaScript实用范例词典04-14
5.30 弹出
一个
无属性栏的窗口... 132 5.31 弹出广告窗口... 133 5.32 弹出多个窗口... 134 5.33 指定弹出窗口的位置(IE) 135 5.34 指定弹出窗口的位置(Netscape) 136 5.35 弹出
一个
居中显示的窗口... 137 5.36...
C语言如何检查
一个
字符
串
是否全
数字
?
正如题目所问?在C语言中如何
判断
一个
字符
串
是否是全
数字
的? 先贴出一段代码
Java中
判断
字符
串
是否全为
数字
Java中
判断
字符
串
是否全为
数字
的方法有三种: 一,用JAVA自带的函数 二,用正则表达式 三,用ascii码 对应代码: 一,Java中
判断
字符
串
是否全为
数字
的方法1 public static boolean isNumeric(String str){ for (int ...
java
判断
字符
串
全为
数字
字符
判断
字符
串
全为
数字
字符
Character.isDigit()
JavaScript
判断
字符
串
是纯
数字
方法一:是十进制纯
数字
使用正则表达式 const result = /^\d+$/.test(number) 方法二:是
数字
(不仅仅是十进制) 使用 isNaN(num) isNaN(num) //返回true代表非
数字
,返回false,代表是有效
数字
isNaN(123) // ...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章