简单问题，送分了！~

Question

怎样判断edit里面输入的是一个double 型数据，它可能是1.2或者152.89总之带有小数点怎样判断？

Answer 1

我想这样应该可以吧。
判断是否有小数点
Var
  str1:string
begin
  str1:=trim(edit1.text);
  if pos('.',str1)>0 then
    showmessage('这个应该是Double型');
end;

Answer 2

try
begin
  StrToFloat(Edit1.Text);
  ShowMessage('Double Num');
end;
Except
 ShowMessage('Not Double Num');
end;

Answer 3

edit里的都是字符串。用一个循环语句判断一下这个字符串中是不是用“.“
不就可以了吗，这个方法好像很本，可可以实现！

Answer 4

itperson(阿尔博信：从此为大家回答问题) 用你的方法不行呀，我明明输入的是aaa他还是showmessage('double num')了

Answer 5

itperson(阿尔博信：从此为大家回答问题) 的方法可以的啊，或者这样判断：
if StrToFloatDef(Edit1.Text, 0) = StrToFloatDef(Edit1.Text, 1) then
  ShowMessage('Double类型')
else
  ShowMessage('不是Double类型');