delphi整型变量相除，要求结果为小数

2025-05-20 14:35:24

推荐回答（4个）

回答（1）：

var
a,b:integer;
p0:double;
begin
p0:=a/b; // a/b 得的值会自动转为double赋给p0的. 如果要保留小数位数要用到Format函数.
adoquery1.SQL.add('update table1 set p='+currtostr(p0)+' where.....'); //sql中这么写,字符串的拼接问题,要把p0转为字符串.

回答（2）：

procedure TForm1.Button1Click(Sender: TObject);
var
m , n : Integer;
x : double;
begin
m := StrToInt(edt1.Text);
n := StrToInt(edt2.Text);
x := m/n;
edt3.Text := FloatToStr(x);
end;
没搞懂你要干什么，不过好像就是数据转换那你写的不对，上面的这个例子可以达到你的要求啊，希望能帮助你.....

回答（3）：

好像办不到吧，为什么要用整形变量得到小数类型呢？规定你要这样做吗？

回答（4）：

你写的是对的，只是SQL 不对