如何判断是实数还是小数？

Question

如何判断一个数是实数还是小数？
有什么好的方法吗？
另外 在同一个窗体上 一个按钮如何调用另一个按钮？比如说btn1调用btn2的代码
这个调用都写？
高手指点啊

Answer 1

1. if (n - Trunc(n) > 0) then ShowMessage('小数');2.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2Click(nil);
end;

Answer 2

我想楼主的意思应该是问从一个数据文件里面读出来的4个字节怎么判断该用Integer还是Singer吧？

Answer 3

1. if (n - Trunc(n) > 0) then ShowMessage('小数') else showmessage('整数'); 2. 
procedure TForm1.Btn1Click(Sender: TObject); 
begin 
  Btn2Click(self); 
end;procedure TForm1.Btn2Click(Sender: TObject); 
begin 
  showmessage('Hello'); 
end;

Answer 4

var vstr:string;
vsstr:='2.3';
if Pos('.',vsstr)>0 then
   showmessage('实数')
else
   showmessage('整数');
vsstr:='2';
if Pos('.',vsstr)>0 then
   showmessage('实数')
else
   showmessage('整数');

Answer 5

对啊，用pos判断是否有小数点存在就行了。比如说btn1调用btn2的代码可以在btn1的Click事件里面点下拉菜单选择Btn2Click