请问怎样判断用户输入的数值是否包含小数??????????????????????????????

Question

请问怎样判断用户输入的数值是否包含小数??????????????????????????????如果是带有小数,怎样判断小数有多少位????
例如用户输入:8554.223它带有小数,并有3位的小数位

Answer 1

pos(edit1.text,'.')查找.的位置就可以了

Answer 2

if Pos(Edit1.text,'.')<>0 then 有小数
小数位=Length(Edit1.text)-Pos(Edit1.text,'.')
不过在输入时要限制输入多个小数点。

Answer 3

try
  strtoint(edit1.text);
  showmessage('整数')；
except
  try
    strtofloat(edit1.text);
    小数位:=length()-pos(edit1.text,'.')
  except
    showmessage('非有效数')；
  end;
end;