怎样判断一个Edit1.Text的输入为整数？

Question

可以在edit的onchange事件中判断输入的数据是否在0-9之间，即可对整数作判断了么.当然当输入回车也应有相应的判断，执行相应的操作。

Answer 1

你需要在什么时候判断,是边输入边判断还是输入完成了才判断,前者可以截获KeyPress事件, if Not (Key In [0..9]) then Key:=#0;后者可以这样,if Round(StrToFLoat(Edit1.text))=StrToFloat(Edit1.text) then ...

Answer 2

OnChange判断是否为数字或者输入完成后判断是否为整数（try StrToInt）。

Answer 3

Function IfStrIsInt(Value:String):Boolean;
Begin
  Result:=False;
  Try
    StrToInt(Edit1.Text);
  Except
    Exit;
  End;
  Result:=True;
End;

Answer 4

Function IfStrIsInt(Value:String):Boolean;
Begin
  Result:=False;
  Try
    StrToInt(Value);
  Except
    Exit;
  End;
  Result:=True;
End;