procedure TForm1.Edit2KeyPress(......);
begin
if not (key in [#8,'0'..'9',DecimalSeperator]) then
begin
key :=#0;
end
else
begin
if (key=DecimalSeperator) and (Pos(key,Edit2.Text)>0) then
begin
key :=#0;
end;
end;
end;
使文本框只能输入整数或小数
2008-09-18
448
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《
阿里云开发者社区用户服务协议》和
《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写
侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
procedure TForm1.Edit2KeyPress(......);
begin
if not (key in [#8,'0'..'9',DecimalSeperator]) then
begin
key :=#0;
end
else
begin
if (key=DecimalSeperator) and (Pos(key,Edit2.
目录
相关文章
|
7月前
|
C#
|
7月前
|
C++
写一个函数，输入一个四位数字，要求输出这四个数字字符，但每两个数字间空一个空格。如输入1990，输出1 9 9 0
这是一个C++代码片段，实现了一个函数`Print`，用于倒序打印整数。代码在`main`函数中读取用户输入的整数`n`，然后调用`Print`函数输出。示例运行结果显示了一张图片，显示了代码执行后的输出，但具体内容未提供。
166
0
0
|
7月前
|
C++
写一个函数，输入一个四位数字，要求输出这四位数字字符，但是每两个数字间空一个字符，如输入1990，输出1 9 9 0
这是一个C++代码段，用于打印整数的逆序。程序从用户输入接收一个整数，然后通过递归方法将其逆序输出。示例结果展示了一张图片，但因摘要限制无法显示。代码功能是将数字如12345逆序输出为54321。
60
0
0
|
6月前
|
存储
|
7月前
如何实现后台返回的数据有.00或.0，显示时若是整数不显示小数点和小数电以后的0,小数显示小数点
如何实现后台返回的数据有.00或.0，显示时若是整数不显示小数点和小数电以后的0,小数显示小数点
85
0
0
|
7月前
|
前端开发
JavaScript
|
C#
热门文章
最新文章
1
跟阿里云技术专家阙寒一起深度了解视频直播CDN技术
2
流批一体的近实时数仓的思考与设计
3
丰富、连接、待集成—MaxCompute 生态再出发
4
securecrt克隆会话与sshd 的 MaxSessions
5
Flink 消息聚合处理方案
6
VMware安装的相关文章
7
forever让nodejs应用后台执行
8
路边的烧烤摊杂感
9
size_type、size_t、differentce_type以及ptrdiff_t
10
一些链接
1
《人工智能知识图谱构建与应用的最新突破与成果》
35
2
《零样本学习：突破瓶颈，开启智能新征程》
25
3
《知识表示：开启人工智能学习与推理的密钥》
27
4
《信息传播：人工智能助力驱散虚假信息阴霾》
25
5
《多模态融合：开启智能新时代的钥匙》
36
6
自学记录鸿蒙 API 13：实现人脸检测 Core Vision Face Detector
65
7
阿里云先知安全沙龙(武汉站) ——AI赋能软件漏洞检测，机遇, 挑战与展望
475
8
在线使用：Poe Ai网页版_pc版_poe ai中文官网入口
21
9
java项目中jar启动执行日志报错：no main manifest attribute, in /www/wwwroot/snow-server/z-server.jar-jar打包的大小明显小于正常大小如何解决
36
10
新手指南：人工智能poe ai 怎么用？国内使用poe记住这个方法就够了！
34