如何限定TEDIT只能输入数字或汉字或字母

Posted 2023-03-19

在Delphi中使用编辑框时，有时需要限制输入它的字符类型，如只接收数字或只接收字母。我们可以在TEdit组件的OnKeyPress事件中对输入进行处理，以限制对编辑框的输入。

　　限制为只接收数字的例程如下：

　　　procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
　　　begin
　　　if not(key in['0'..'9',#8]）then
　　　　begin
　　　　　key:=#0;
　　　　　MessageBeep(1);
　　　　end;
　　　end;

　　程序通过TEdit组件的OnKeyPress事件，判断按键是否为0至9这10个数字键，或者是BackSpace键，如果不是则将该输入设置为空（key:=#0），将其屏蔽掉；如果是则接收字符输入。这里有一点需要说明的是，#8对应BackSpace键，我们不应将它也屏蔽掉，否则不能使用退格（BackSpace）键删除错误的数字输入。

　　同样，如果要限制编辑框只接收字母（不管大小写）输入，程序如下：

　　　procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
　　　begin
　　　if not(key in['a'..'Z',#8]）then
　　　　begin
　　　　　key:=#0;
　　　　　MessageBeep(1);
　　　　end;
　　　end;

　　更复杂的输入限制，如日期格式、电话格式等输入限制，应该使用Delphi的另一个组件MaskEdit（掩码编辑框）。 参考技术A 在EditText中设置属性，android:numeric="integer"即只能输入整数，如

<EditText
android:id="@+id/home_et_validate"
style="@style/order_vcode_input"
android:hint="请输入订单验证码"
android:inputType="number"
android:digits="@string/filter_vcode"/>
1
<string name="filter_vcode">0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ</string>
解释说明：

注意其中的android:digits="0123456789qwertyuioplkjhgfdsazxcvbnm"这个就是限制输入类型的。