怎么辨别0到9和a到z的字符!

milerzhang 2003-09-23 09:19:00
怎么在if语句里写,如果输入的是0到9之间的字符就执行if里的语句!
急!谢谢!
...全文
71 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
delphi_xizhousheng 2003-09-23
  • 打赏
  • 举报
回复
要是要判断回车 x=#13
退档键 x=#8
delphi_xizhousheng 2003-09-23
  • 打赏
  • 举报
回复
要是你的X是CHAR型的话 那不等式左边应该是ord(x)
whqcfp 2003-09-23
  • 打赏
  • 举报
回复
if Str[Length(Str)] in ['0'..'9', 'a'..'z', #13] then ...

delphi_xizhousheng 2003-09-23
  • 打赏
  • 举报
回复
if (x>=ord('0') and x<=ord('9') ) or (x>=ord('a') and x<=ord('z')) then
ntfs2 2003-09-23
  • 打赏
  • 举报
回复
还有,如果再FormKeyPress里面写要判断是不是回车呀!
PrgmLover 2003-09-23
  • 打赏
  • 举报
回复
如果你是整个字符串,就用
for i:=1 to Length(Str) do
if Str[i] in ['0'..'9', 'a'..'z'] then ...

如果是单字符
if Str[Length(Str)] in ['0'..'9', 'a'..'z'] then ...

milerzhang 2003-09-23
  • 打赏
  • 举报
回复
用ASCII码怎么写呀?能不能各位大虾举个例子!
FrameSniper 2003-09-23
  • 打赏
  • 举报
回复
还是用ASCII码吧!
lishu2002 2003-09-23
  • 打赏
  • 举报
回复
你也可以判断他的Asc码只要asc码值在48-57之间就是0-9的数字!
milerzhang 2003-09-23
  • 打赏
  • 举报
回复
我不是在FormKeyPress里写!是在Button1Click里写!
在Button1Click里写,x要char型!可不可以用string型呀!
如果要用asiic码判断,要怎么写呀?
DelphiBoy2003 2003-09-23
  • 打赏
  • 举报
回复
楼上的代码应该把x换成Key吧
haipin 2003-09-23
  • 打赏
  • 举报
回复
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if x in ['0'..'9', 'a'..'z'] then ...;

end;
bigery 2003-09-23
  • 打赏
  • 举报
回复
同意上面的简单方法
也可以判断它的asiic码!
lvloj 2003-09-23
  • 打赏
  • 举报
回复
if x in ['0'..'9', 'a'..'z'] then ...;

5,392

社区成员

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

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