H hnhsh Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-26 #1 在表单里添置一个edit1,要使输入的字符在0、1、2、3、4、5、6、7、8、9和A 、B、 C、 D、 E、 F范围之内，即符合十六进制数的规范，请问如何用delphi代码表示？
C ccdarkness Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-26 #2 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>begin<br> if not (key in ['0'..'9', 'A'..'F',#13, #8, #7]) then<br> key := #0;<br>end;<br>在edit的按键事件中添加过滤,不是0..9 或者不是a..f则按键无效,#13,#8,#7是ascii码
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>begin<br> if not (key in ['0'..'9', 'A'..'F',#13, #8, #7]) then<br> key := #0;<br>end;<br>在edit的按键事件中添加过滤,不是0..9 或者不是a..f则按键无效,#13,#8,#7是ascii码
