delphi里如何得到一个随机数啊？？

Question

告诉我啊~~~~

Answer 1

random 函数 返回一随机函数 randomize 函数 用一随机数初始化内置的随机数生成器 

Answer 2

var i:integer;j:double;randomize;
i:=random(100);//得到0--100之间的整数，
j;=random;//如果用random;则得到0-1之间的小数

Answer 3

具体代码如下:
procedure TForm1.Button2Click(Sender: TObject);
   var x:real;
begin
 x:=random (9) ;
label1.caption:=floattostr(x);
      end;
end.另外还要用radomize初始化!不然得到的数第一次都一样!

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  for j:=0 to 10 do
  begin
  Randomize;
  i:=Random(10);
  showmessage(inttostr(i));
  end;
end;
取10内的随机数

Answer 5

ar i:integer;j:double;randomize;
i:=random(100);//得到0--100之间的整数，
j;=random;//如果用random;则得到0-1之间的小数

Answer 6

在代码中输入输入random 
然后选中后 按F1

Answer 7

ljmanage(过客) 拷贝别人的也不拷全！
ar i:integer;j:double;
呵呵~~