除法问题，急！！！

Question

如何判断两个real数相除后结果刚好是整数如何商为小数  怎么得到整数和小数部分

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    a,b:real;
    c:real;
begin
    a:=StrTofloat(edit1.TExt);
    b:=StrToFloat(Edit2.Text);
    c:=a/b;
    if c=round(c) then////////////整除
        Edit3.Text:=IntToStr(round(c))
    else//////////没整除
    begin
        Edit3.Text:=IntToStr(Trunc(c));///////取整数部分
        Edit4.Text:=Format('%.2f',[Frac(c)]);/////////取小数部分
    end;
end;

Answer 2

a:=StrTofloat(edit1.TExt);
b:=StrToFloat(Edit2.Text);
if (a/b)=(a div b) then //整除了

Answer 3

a div b 参数要求a,b为整数，这里是浮点数，不能这样用。