var
i,n:integer;
k,f:real;
begin
i:=7 div 2;//整除，取商值，结果是3
edit1.Text :=inttostr(i);

n:=7 mod 2;//整除，取余数，结果是1
edit2.Text :=inttostr(n);

k:=7/2 ;//实数出发，两整数相除结果是3.50
edit3.Text :=formatfloat('0.00',k);

f:=1.4 / 2.3 ;//实数出发，两实数相除结果是0.609
edit4.Text :=formatfloat('0.000',f);
end;

FloatToStr

　　功能说明：该函数用于将“浮点型”转换成“字符型”。

　　参考实例：

　　Edit1.Text := FloatToStr(1.981);