请问如何判断在edit控件中输入的是不是数字！

Question

包括整型，浮点，double，否则就弹出错误消息。谢谢。

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in['0'..'9','.'] then
  begin
    if (Key='.')and(Pos('.',Edit1.Text)>0) then
    begin
      Key :=#0;
      ShowMessage('不能有两个"."号');
    end;
  end else begin
    Key :=#0;
    ShowMessage('只能输入数字与"."号');
  end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
     '0'..'9':   ;      //对数字键响应
            #8:   ;     //对退格键响应
            #13:   seekClick(Sender);//进行查询
       else
       begin
       key:=#8;
       playsound('',0,snd_async);//声音提示
       end;
  end;
end;

Answer 3

最简单的方法: strtofloat函数,try一下,异常就报错.

Answer 4

如果你只要判断是否是数字,那么请用以下代码:
一句代码:
http://www.cdjiafu.com/pph/dispbbs.asp?BoardID=3&ID=634&replyID=1570&skin=1

Answer 5

你们说的办法都是必须输入数字，而我希望的是输入以后再判断是不是数字。另外，DELPHI中也可以用try语句吗？谢谢。

Answer 6

try
  StrToFloat(Edit1.text);
except
  raise exception.create('error');
  exit;
end;

Answer 7

有一个函数就可以判断，但必须在uses中写一个头文件,
把email写下，有空给你

Answer 8

if trystrtofloat(Edit1.text,si) then
合法
else
不合法；

Answer 9

try
  StrToFloat(Edit1.text);
except
  Application.MessageBox('请输入数字!','提示'MB_OK+MB_IconInformation);
end;

Answer 10

谢谢大家。
我的mail: [email protected]

Answer 11

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in['0'..'9','.'] then
  begin
    if (Key='.')and(Pos('.',Edit1.Text)>0) then
    begin
      Key :=#0;
      ShowMessage('不能有两个"."号');
    end;
  end else begin
    Key :=#0;
    ShowMessage('只能输入数字与"."号');
  end;

Answer 12

很奇怪，我在执行完
try
  StrToFloat(Edit1.text);
后窗口会马上弹出一个出错，根本没有执行except语句，请问是为什么。
代码如下：
  try
    StrToFloat(editX.text)
  except
    begin
      ShowMessage('σx的值必须为数字！');
      exit;
    end;
  end;