procedure TForm6.Edit11Change(Sender: TObject);
var
a1,a2:float;//这样定义变量不可以吗,说float没有定义呢,怎么回事,
begin
a1:=strtofloat(edit1.text);
a2:=strtofloat(edit11.text);
edit15.text:=floattostr(a1*a2);
end;
小菜鸟,各位朋友谢了,
...全文
5773打赏收藏
实数变量怎么定义
procedure TForm6.Edit11Change(Sender: TObject); var a1,a2:float;//这样定义变量不可以吗,说float没有定义呢,怎么回事, begin a1:=strtofloat(edit1.text); a2:=strtofloat(edit11.text); edit15.text:=floattostr(a1*a2); end; 小菜鸟,各位朋友谢了,