检测edit里有非法字符？？？急用

Question

在点按钮的时候，我想先检测edit里有没有除数字以外的其它字符，怎么写，请指教？？

Answer 1

用ORD检测个个字符的ASCII码!
48 To 57 数字0-9的ASCII码值~再做一下判断就可以了~

Answer 2

你可以限制EDIT只能输入数字，就不用检查了；
SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

Answer 3

EditKeyPress()事件    if((Key>=48&&Key<=57)||Key==8)           //数字
        return;
    else
        Key=0;

Answer 4

你所要的就是得到数字,
try
  strtoint(edit1.text);
except
  showmessage('error');
end;

Answer 5

procedure TSearchExam.TeacherIDEDKeyPress(Sender: TObject; var Key: Char);
begin
  if ((key<'0') or (Key>'9')) and (Key<>#8) then  //只允许输入在数字0到9之间的数字，并允许删除,如果是这几个数字之外的键则忽略输入！
    key:=#0;
end;