如何防止客户输入的字符为中文?(除了英文以外的字符)谢谢!

Question

如题所说的!如何防止客户在Tedit这类控件里面输入的是中文?我看到一个属性是设置输入法的!但是不好使,我还是能输入中文!
请各位指点一二!谢谢!

Answer 1

if not tedit.text='0-9' then
showmessage('输入非法！')

Answer 2

哦
错了
上面的是数字
不过改一下就可以了
'A-Z' or 'a-z'

Answer 3

in button onkeypress event
  use this:if not (Key in [#A,#B,....,#z]) then
begin
   Application.MessageBox(0,"Your Operation is wrong1","Error",MB_OK)
end;

Answer 4

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if length(WideString((sender as TEdit).Text))<>length((sender as TEdit).Text)
  then
  begin
    (sender as Tedit).Clear;
     raise Exception.Create('不能输入中文字符!');
  end;
end;