如何获得不连续的随机数
请教各位，在delphi7中，假设要随机获得1到10和13到20这些数字间的一个随机数，然后把这个随机数显示在一个标签上。应怎样做？ Delphi 随机数
[解决办法]
用数组，将两部分数据存入数组，然后随机取数据内的数，应该可以实现这个功能吧。
[解决办法]
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;
