如何判断edit中输入的是整数还是小数

Question

且小数是两位
请大家帮个忙

Answer 1

if Pos('.') > 0 then找出了.的位置自己再判断一下了

Answer 2

完成输入以后判断
if Pos('.',Edit1.text) <> 0 then 
  showmessage('小数') 
else 
  showmessage('整数');回答是否过于简单了？
:-)

Answer 3

var str:string;try 
  str:=inttostr(edit.text);
  showmessage('整数');
except
  str:=floattostr(edit.text);
  showmessage('小数');
end;

Answer 4

既然有人有意见， 那再给两个函数给你function IsInt(AStr: string): Boolean;
var
  Value, Code: Integer;
begin
  Val(AStr, Value, Code);
  Result := Code = 0;
end;function IsFloat(AStr: string): Boolean;
var
  Value: Real;
  Code: Integer;
begin
  Val(AStr, Value, Code);
  Result := Code = 0;
end;

Answer 5

个人觉得用try语句比较好！如果用pos('.',edit1.text)的话。那还得判断里面是否输入数字呢。。用 cjfzy(他山之石，可以攻玉。) 的方法！

Answer 6

try什么try我的回答的最好再不给分扁你， 
就差 20 分就成星星了呜呜

Answer 7

if s[Length(s)-2] = '.' then 不就行了吗， 再加上我那两个函数还有什么搞不定的给分吧，

Answer 8

var
  Strkey:string;
begin
   if  not (key in ['0'..'9',#13,#8,'.'] ) then //判断
       是否为数字，<-,'.'
        Key  := #0
   else if  key = '.' then
   begin
     if  pos('.',Trim(edtDAJZ.Text+'.'))= 1 then
         Key  := #0
     else
        begin
           Strkey := Trim(edtDAJZ.Text+'.');
           Delete(Strkey, 1,  pos('.',Strkey));
           if Pos('.', Strkey ) >0 then
               Key := #0;
        end;     end
     else if Key = #13 then
        keybd_event(vk_tab, mapvirtualkey(vk_tab, 0), 0, 0);end;

Answer 9

try
  StrToFloat(edit1.text);
except
  showmessage('不合法的数值类型');
  exit;
end;
try
  StrToInt(edit1.text);
except
  Showmessage('带小数')
end;

Answer 10

可以先获得Edit里的字符串,然后边历所有字符串中的单字符寻找小数点'.'.这个算法只需写个for循环就可以了.利用函数copy()来求单字符.

Answer 11

begin
 var str:string;
try
 str:=inttostr(edit1.text);
 edit1.text:=showmessage('整数');
except
 str:=floattostr(edit1.text);
 edit1.text:=showmessage('小数');
end;
这样才对啊
如错了，请多多指教！！！

Answer 12

先判断是不是数值，然后通过pos中的.来判断后面的位置是不是两位

Answer 13

begin
 var str:string;
try
 str:=inttostr(edit1.text);
 showmessage('整数');
except
  try
    str:=floattostr(edit1.text);
    showmessage('小数');
  except
    showmessage('啥也不是,哈哈');
end;