Question

delphi中如何限定edit框中的字符

我写16进制到10进制转换，要求框中只能输入 0~9以及A~F,这个怎么限定？
我还希望实现当输入小写的字母时自动转换为大写字母显示，这个怎么弄？
还有个就是怎么限定edit框中的字符数量？因为超量的话也会报错。

Answer 1

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.CharCase := ecUpperCase; //大写
End;

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
If Not (Key In ['0'..'9', 'a'..'f', 'A'..'F', #8]) Then //允许输入范围限制，#8退格
Begin
key := #0;
End;
End;

Procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
Var Handled: Boolean);
Begin
Handled := True; //防止右键菜单的操作
End;

追问

谢谢回答，现在第一个大小写问题是彻底解决了，但是后面那个编译后好像没有效果，输入时它还是会显示-----我在2个过程里分别加了showmessage（），结果没有弹出，说明没有被调用，不知道哪里写错了？

追答

以上3个过程都不是自定义的过程，都是控件的事件。

追问

。

Answer 2

在edit的change事件中加入判断ascii码并转换的语句

追问

我就是不知道怎么写所以才问的。。

追答

你的问题补充 后面那两个事件 选中控件 切换到事件面板 选择 keypress事件 双击就会自动创建了 如果你不嫌弃麻烦自己手动敲也可以

下面的写的可能有点错

Procedure Edit1.KeyPress(Sender: TObject; Var Key: Char);
Begin
If Not (Key In ['0'..'9', 'a'..'f', 'A'..'F', #8]) Then //允许输入范围限制，#8退格
Begin
key := #0;
End;
End;

Answer 3

字符数量可以用控件本身属性：maxlength 来限定(注意情况设计期初始值)，或者，再最终提交的时候，做一个检查，看字符长度
if length(self.Edit1.text)>10 then
begin
Application.MessageBox('XXXX超长！','提示');
self.Edit1.SetFocus;
end;

Answer 4

吧控件所在窗孔的 keypreview 属性设为真，控件的 keypress 事件才会生效

追问

设置了，但是还是没用

追答

Procedure Edit1.KeyPress(Sender: TObject; Var Key: Char);
你的这个过程声明是怎么回事？
是你复制过来的？还是敲得？敲错了？