如何获得不连续的随机数

Question

请教各位，在delphi7中，假设要随机获得1到10和13到20这些数字间的一个随机数，然后把这个随机数显示在一个标签上。应怎样做？Delphi随机数

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Label1.Caption := Random(10) + 1;//产生1-10的随机数
  Label1.Caption := Random(8) + 13;//产生13-20的随机数
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Label1.Caption := Random(10) + 1;//产生1-10的随机数
  Label2.Caption := Random(8) + 13;//产生13-20的随机数
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Label1.Caption := IntToStr(Random(10) + 1) +'  '+ IntToStr(Random(8) + 13);//产生1-10的随机数
end;

Answer 4

原来你是要这样啊：
var
  i: integer;
begin
  Randomize;
  i := 11;
  while (i > 10) and (i < 13) do
    i := Random(20) + 1;
  Label1.Caption := IntToStr(i);
end;

Answer 5

var
  i: integer;
begin
  Randomize;//随机初始化
  i := 11;//将i初始化成11，好让下面的循环执行
  while (i > 10) and (i < 13) do//如果i=11或者i=12那么就继续循环下去，直到抓取的随机数不是11,12
    i := Random(20) + 1;//抓取1-20之间的一个随机数
  Label1.Caption := IntToStr(i);
end;