Question

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

Answer 1

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;