Question

delphi 从数组中任取一个，例如从1至9随机取一个数进行付值。

Answer 1

试编写示例代码如下：

procedure TForm1.btn1Click(Sender: TObject);
const
  Arr:array[1..10] of string[11]=('13622220001',
      '13622220002','13622220003','13622220004',
      '13622220005','13622220006','13622220007',
      '13622220008','13622220009','13622220010');
var
  i:integer;
begin
  Randomize;
  i := Trunc(10 * Random + 1);
  ShowMessage('当前随机抽取的号码是：'+Arr[i]);
end;

运行截图：

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  arrInt: array[0..9] of Integer;
  i: Integer;
begin
   Randomize;//随机
   i := Random(9);//随机产生9以内的数
   arrInt[i] := i;
end;