delphi里如何判断输入的值是否精度类型?

Question

请问我做了个输入框,只能输入double类型,其它类型将会弹出错误信息,该如何实现呢?

Answer 1

使用异常的方式。
try
  StrToFloat(edit1.text);
except
  showmessage('请输入合法数字!');

Answer 2

用这个方法判断，
function IsFloat(FloatString: string): Boolean;
begin
  Result := True;
  try
    StrToFloat(FloatString);
  except
    Result := False;
  end;
end;

Answer 3

哦,这个方法不错,try能够几行一起写吗,如果我要判定的text有好几个呢?
try
  StrToFloat(edit1.text);
StrToFloat(edit1.text);
except
  showmessage('请输入合法数字!');

Answer 4

写错了,应该是try
  StrToFloat(edit1.text);
  StrToFloat(edit2.text);
  StrToFloat(edit3.text);
except
  showmessage('请输入合法数字!');

Answer 5

try
  StrToFloat(edit1.text);
except
  showmessage('edit1 请输入合法数字!');try
  StrToFloat(edit2.text);
except
  showmessage('edit2 请输入合法数字!');

Answer 6

我的界面eidt框有十几个啊,难道还要重复写try语句.
请问TMaskEdit怎么用啊?