delphi除法运算问题?高手帮忙!
我想实现除法功能。varForm1:TForm1;x,y,z:Integer;……beginx:=StrToInt(form1.Edit1.Text);y:=StrToI...
我想实现除法功能。
var
Form1: TForm1;
x,y,z: Integer;
……
begin
x:= StrToInt(form1.Edit1.Text);
y:= StrToInt(form1.Edit2.Text);
z:=x/y;
form1.Edit3.Text:=IntToStr(z);
end;
运行时,为什么" z:=x/y; " 提示错误?
而把运算符“/” 换成 "div"就能运行?
要怎么把 浮点型的 Z (Double) 转化成字符型呢?
我想把结果赋值给Form1 的 Edit1 里。
Tform.Edit1.Text:=(Z); 展开
var
Form1: TForm1;
x,y,z: Integer;
……
begin
x:= StrToInt(form1.Edit1.Text);
y:= StrToInt(form1.Edit2.Text);
z:=x/y;
form1.Edit3.Text:=IntToStr(z);
end;
运行时,为什么" z:=x/y; " 提示错误?
而把运算符“/” 换成 "div"就能运行?
要怎么把 浮点型的 Z (Double) 转化成字符型呢?
我想把结果赋值给Form1 的 Edit1 里。
Tform.Edit1.Text:=(Z); 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询