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 写图片格式转换程序大全

Delphi 获取当前系统语言环境（en，fr，ja等）

Delphi实现url编码解码函数

Delphi 10分钟10行代码开发app(Delphi 应用案例)

Delphi 获取当前进程的父进程

Delphi 提取html网页源文件纯文本函数可做采集

Delphi tdbgrideh导出excel

Delphi shutdown() 关机

Delphi xe android的所有权限按照分类总结说明

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

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