转换问题

Question

一个edit1  一个DBedit1我是用procedure TDPFrom.Edit1Change(Sender: TObject);
来将edit1的数据传到DBEdit1的,
但我要的是edit1是整数来的,
我要怎样写代码才能检测到 edit1 的数据是整数呢

Answer 1

var
  value: Integer;if tryStrToInt(Edit1.text, value) then
  你的代码

Answer 2

在Edit的KeyPress事件中添加如下代码:
  if (Key = #8) or (Key = #127) then
    Exit;
  if (Key < '0') or (Key > '9') then
    Key := #10;
确保edit中输入的只能是数字

Answer 3

(Sender: TObject;var Key: Char);//禁止不是数字的按键
begin
  if not (Key in ['0'..'9',#8]) then
    key:=#0;
end;

Answer 4

if not (key in ['0'..'9',#8])  then　key := #0;