请问两个浮点型的数相减的结果怎么跟整型数比较？谢谢

Question

请问两个浮点型的数相减的结果怎么跟整型数比较？
var
   i,j:real;
   i;=strtofloat(edit1.text);
   j:=strtofloat(edit2.text);
   if(i-j)<>0 then       //现在问题是：这不能判断
   begin
    ...
   end;

Answer 1

不能编译么？我手上没有Delphi，若是不能编译你可以把0改为0.0

Answer 2

var
   i,j:real;
   i;=strtofloat(edit1.text);
   j:=strtofloat(edit2.text);
   if  i<>j then       //这下可以了吧？
   begin
    ...
   end;

Answer 3

如果遇到转换的时候可以先查查HELP，这些函数HELP都有的：procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:real;
begin
  i:=strtofloat(edit1.text);
  j:=strtofloat(edit2.text);
  if trunc((i-j))=0 then       //现在问题是：这不能判断
    begin
      showmessage('');
    end;
end;

Answer 4

根据测试与整数比较没问题：var i,j:real;
const s:array[boolean] of string=('equal to 0','not equal to 0');
begin
  i:=1.2;
  j:=3.2;
  ShowMessage(s[i-j<>0]);
end;