delphi 从数组中任取一个

本文整理自网络，侵删。

 
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('当前随bai机抽取的号码du是：zhi'+Arr[i]);
end;




另外一个；
procedure TForm1.Button1Click(Sender: TObject);
var
  arrInt: array[0..9] of Integer;
  i: Integer;
begin
   Randomize;//随机bai
   i := Random(9);//随机产生du9以内zhi的dao数
   arrInt[i] := i;
end;
 

相关阅读 >>

Delphi 实现文件实施监控

Delphi xe5实现android 安卓 左侧或者右侧菜单功能

Delphi删除cookie和ie缓存

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi xe 泛型数组和splitstring处理数据

Delphi 制作放两个小图片的按钮

Delphi 强制删除文件 zwdeletefile

Delphi 串口常用的字符串转换函数

Delphi 如何确定access数据库中存在某一个已知名的表

Delphi dataset和json互转函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 从数组中任取一个