Delphi中随机产生0到1之间的小数

还不确定我爱你 1年前 已收到1个回答 举报

不剑封喉 幼苗

共回答了19个问题采纳率:84.2% 举报

procedure TForm1.Button1Click(Sender:TObject);
var r :integer; f:Real;
begin
{先取得0~10之间的随机数,然后 / 10 就行了}
r := Random(10);
f := r / 10;
Edit1.Text := FloatToStr(f);
end;

1年前

9
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.028 s. - webmaster@yulucn.com