社区
Windows SDK/API
帖子详情
请问,delphi中有没有判断输入的字符是数字的函数。高份,在线!!
zhangjinghui2008
2003-05-09 12:15:58
请问,delphi中有没有判断输入的字符是数字的函数。高份,在线!!
...全文
56
14
打赏
收藏
请问,delphi中有没有判断输入的字符是数字的函数。高份,在线!!
请问,delphi中有没有判断输入的字符是数字的函数。高份,在线!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
14 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jinghong
2003-05-10
打赏
举报
回复
你还可以用Tmaskedit倥件来控制接收的数字还是字符。。。。
langshuquan
2003-05-10
打赏
举报
回复
我一般这么写
try
strtoint(edit1.Text);
except
showmessage("不是数字!");
end;
智商无下限
2003-05-09
打赏
举报
回复
呵呵,上面的方法调试的时候通不过,但是独立运行的时候没有问题!
智商无下限
2003-05-09
打赏
举报
回复
一个简单的方法:在FORM上放一个EDIT1,一个BUTTON1
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
try
i:=strtoint(edit1.Text);
showmessage('你输入的是数字 :'+inttostr(i));
except
showmessage('你输入的是字符(串) :'+edit1.Text);
end;
end;
yoisyois
2003-05-09
打赏
举报
回复
典型应用:
edit1 的onKeyPress事件里面:
...
if IsDigit then
....
...
yoisyois
2003-05-09
打赏
举报
回复
function IsDigit(key: char): boolean;
begin
if key in [0..9] then
Result := true;
end;
智商无下限
2003-05-09
打赏
举报
回复
好象没有,自己写吧!也不难!
myfine
2003-05-09
打赏
举报
回复
有函数的,IsNumeeric
plz
2003-05-09
打赏
举报
回复
varisnumeric(edit.text)
yzf111
2003-05-09
打赏
举报
回复
var i:integer;
begin
if trystrtoint(edit1.text,i) then showmessage('it is integer');
end
hawkhxz
2003-05-09
打赏
举报
回复
一个简单的方法:
procedure TForm1.EDIT1EXIT(Sender: TObject);
begin
try
strtoint(edit1.Text);
except
showmessage('不是一个有效的数字,请重新输入');
end;
end;
智商无下限
2003-05-09
打赏
举报
回复
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
showmessage('不是数字');
end;
soaringsouth
2003-05-09
打赏
举报
回复
if not (Key in ['0'..'9', #8,#9,#13]) then Key := #0;
l_xiaofeng
2003-05-09
打赏
举报
回复
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key in [$41..$5A] then
begin
edit1.text:=inttostr(strtoint('$'+edit1.text));
end;
照着这个自己写一个吧
delphi
实现
字符
串
中
数字
的
判断
及相应
数字
累加
写上来看大家是否还有更优化的写法,欢迎讨论:下面实现将
字符
串"10ad200d3"
中
的
数字
合计,10+200+3=213 var s1:string;var i:integer;var n1:integer;var tem1: string;var tem2:integer; s1:=10ad200d3; // 要处理的
字符
串 tem1:=; //用来
Delphi
中
实现
字符
串分析:统计
数字
、字母、空格及其他
字符
个数
在
Delphi
中
,
字符
串是由
字符
构成的序列,
字符
的种类繁多,除了
数字
、字母和空格之外,还有许多其他类型的
字符
。例如标点符号、运算符、货币符号等。它们在不同的应用场景
中
具有特定的含义。在进行
字符
统计时,我们常常需要将这些"其他
字符
"单独识别出来。为了提高代码的复用性和可读性,我们可以设计自定义
函数
来进行
字符
的分类统计。这不仅可以简化主程序代码,还可以使功能模块化。beginend;end;
delphi
判断
一个
字符
是否为汉字的最佳方法
function IsNumberic(Vaule:String):Boolean; //
判断
Vaule是不是
数字
vari:integer;beginresult:=true; //设置返回值为 是(真)Vaule:=trim(Vaule); //去空格for i:=1 to length(Vaule) do //准备循环beginif not Vaule[i] in ['0'..'9'] the
delphi
中
判断
字符
串是否为
数字
delphi
中
判断
字符
串是否为
数字
Delphi
中
,想
判断
一个
字符
串是否为
数字
,有好多方法,这里列出两种简单的方法:1. 自定义
函数
function isnum(str:string):boolean; var i:integer; begin for i:=1 to length(str) do if
delphi
公用
函数
{*******************************************************}{ }{
Delphi
公用
函数
单元 }{
Windows SDK/API
1,184
社区成员
22,326
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章