请问如何通过Delphi编程，做到一个输入框中，只能输入汉字，而不能输入数字或其他字符？

请问如何通过Delphi编程，做到在一个输入框中，只能输入数字，而不能输入其他字符？~

edit的maxlength设置为2;
在edit的onkeypress事件内
procedure Ttbdlform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key #9 then// #9 是空格,你可以查找下数字1\2\3是什么值
showmessage('请输入数字')
end;

1、这种方式是控制台输入
Scanner sc = new Scanner(System.in);
String y = sc.nextLine();
2、网页方式
网页画个文本框 文本框名字为 name
后台程序
String name = request.getParameter("name");

更加准确地说是应该
在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key)=8 then exit;
if (Ord(Key)<127) or ((Length(Edit1.Text)>0) and (Ord(Edit1.Text[1])>127)) then
Key:=#0;
end;写入以上代码即可。

在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Ord(Key)<127) or (Ord(Edit1.Text[1])>127) then
Key:=#0;
end;

---

盘山县17724344425： 请问如何通过Delphi编程,做到在一个输入框中,只能输入数字,而不能输入其他字符? - ？
岛刻羟喜： edit 属性Maxlength 设置2;在edit的onkeypress里 procedure Tmainform.editkeypress(sender:tobject;var key: char ); var Uflag: integer; begin Uflag:=Tedit(sender).Tag; if (not (key in ['1'..'9'])) and (not (key=#8)) then key:=#0; end;

盘山县17724344425： 如何通过delphi编程实现获取某软件的安装路径 - ？
岛刻羟喜： 这个要根据具体软件来定.1. 一般windows平台下软件,会在注册表中写相关数据,你可以读取软件在注册表中的相关信息来读取.2. 有的软件会在开始菜单里有项目,那么读取其文件属性,也可以获取其所在路径.3. 如果都不行,那只能是搜索硬盘,查找并对比软件名称、大小等信息来得到路径.

盘山县17724344425： 请问用delphi如何实现?？
岛刻羟喜： 就是因为大大缓冲区中复制的文件不是全能精确显示的,因为有的是绝对路径,说白了就一句话,就是将html文件中的路径查找出来断定其是绝对路径照样相对路径,如不雅是相对路径不消管它,如不雅是绝对路径就应当将其改为相对路径那若何转换呢?

盘山县17724344425： 请问用Delphi编程如何做到输入框非空?？
岛刻羟喜： 在你要断续运行的“确定”按钮中时加入判断代码啊!如你想Edit1的录入不允许空 你可以这样 if Length(Edit1.Text)=0 then begin ShowMessage('请输入内容'); Edit1.SetFocus; Exit; end;

盘山县17724344425： 怎样通过delphi编程来实现定时备份文件 - ？
岛刻羟喜： 简单的,在窗体上放一个edit button timer两个控件,timer的enabled属性设为false;button 单击事件代码:procedure TForm1.Button1Click(Sender: TObject);begintimer1.enabled := True;end;timer代码;procedure TForm1.Timer1Timer(Sender: ...

盘山县17724344425： 怎么使用DELPHI编程实现如下功能 - ？
岛刻羟喜： 你的问题就是一个,实现要点为 分词和分词检索

盘山县17724344425： 如何在Delphi中实现PING,谢谢各位大侠 - ？
岛刻羟喜： 三、编程实现 在Delphi中,我们可以使用IdIcmpClient组件(位 于Indy Client选项卡中)实现Ping操作.添加此组件到窗体,再添加一个文本框控件edtHost(输入IP)、一个列表框控件Info(显示信息)、两个命令按钮btnPing(执行Ping命令)...

盘山县17724344425： Delphi怎样实现多线程 - ？
岛刻羟喜： 多线程其实非常简单,DELPHI有多线程的类,你添加即可使用,但是我喜欢自己调用API,方法如下:定义一个函数或者过程,这个函数就是线程要执行的内容,然后调用API就可以不断创建线程,每个线程都单独的执行那个函数,执...

盘山县17724344425： 如何用Delphi做到这个 - ？
岛刻羟喜： uses abc, bcd;procedure TForm1.Button1Click(Sender: TObject);begin if fileexists('c:\abc.txt') then showmessage('已经存在') else ACE;end;

盘山县17724344425： 如何delphi编程实现对WINDOWS的操作？
岛刻羟喜： 注册表操作无论用什么语言都一样,只要你会用windows提供的API即可.与注册表操作相关的API都以Reg开头,各个函数用法MSDN上写的很清楚.