delphi中怎么调用随机函数

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Randomize;
  I := Random(100);
  Caption := IntToStr(I);
end;

Answer 1

这样生成0 <= X < 100的随机数。如果是这样
I := Random;
则生成0 <= X < 1的随机数。
别忘了先用Randomize初始化

Answer 2

首先在FormCreate中初始化随机数
Randomize;
然后调用时使用如下:
Random(i);
Random返回0-1之间的随机数,i为一个整数,
例如
Random(30);则返回一个0-30之间的数,你可以试一下.

Answer 3

Randomize;  //初始化随机函数
Random();  //调用随机函数

Answer 4

delphi中的一个例子：procedure TForm1.Button1Click(Sender: TObject);
var  I: Integer;
begin
   Randomize;
   for I := 1 to 50 do
   Canvas.TextOut(Random(Width), Random(Height), 'Boo!')
end;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var
   hr: Thandle;
begin
   Randomize;
   hr:=CreateEllipticrgn(0,0,width,height);
   SetWindowRgn(handle,hr,true);
   Degital1.Text:='';
   li_timer:=0;
   SpeedButton1.Enabled:=false;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
   li_red,li_green,li_blue : integer;
begin
   li_red:=Random(255);
   li_green:=Random(255);
   li_blue:=Random(255);
   label1.Font.Color:=Rgb(li_red,li_green,li_blue);
   if li_count=8 then
       speedbutton1.Enabled:=false;end;
以前写的一个小游戏中的部分代码.

Answer 6

Begin
  Randomize;
  for I := 1 to 10 do
    Write(Random(100) + Random(50));
end;
Randomiz 是设置随机数种子的过程
Random    是随机函数