DEL中怎样产生随机数？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  D: Double;
begin
  Randomize;
  D := Random(35) + 1;
  Caption := FloatToStr(D);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  D: Double;
begin
  Randomize;
  D := Random(35) + 1;
  Caption := FloatToStr(D);
end;

Answer 2

var   I: Integer;
 begin
   Randomize;
   for I := 1 to 35 do 
     random(i);
   
 end;

Answer 3

Random 函数floattostr函数

Answer 4

Randomize;random(35)FormatFloat('0.00',double);
---------------------

Answer 5

Randomize;
Random(35);
double=float;

Answer 6

Randomize;
Random(35);
double=float;