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 利用 showmessage(syserrormessage(getlasterror));得到不反馈的错误信息

汇编数据宽度和字节序

android : assets与res/raw资源目录的区别

Delphi调用阿里云的对象存储服务oss

Delphi webbrowser全选\复制\粘贴

Delphi 禁止截屏printscreen

Delphi antiemupeb

Delphi shellexecute 发送邮件

Delphi双进程监控

Delphi 复制动态数组

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