delphi生成32位随机数


本文整理自网络,侵删。

 var
sz:array[ 0..35] of string;
i,j,p:Integer;
tem:string;
begin
sz[0]:='0';
sz[1]:='1';
sz[2]:='2';
sz[3]:='3';
sz[4]:='4';
sz[5]:='5';
sz[6]:='6';
sz[7]:='7';
sz[8]:='8';
sz[9]:='9';
sz[10]:='A';
sz[11]:='B';
sz[12]:='C';
sz[13]:='D';
sz[14]:='E';
sz[15]:='F';
sz[16]:='G';
sz[17]:='H';
sz[18]:='I';
sz[19]:='J';
sz[20]:='K';
sz[21]:='L';
sz[22]:='M';
sz[23]:='N';
sz[24]:='O';
sz[25]:='P';
sz[26]:='Q';
sz[27]:='R';
sz[28]:='S';
sz[29]:='T';
sz[30]:='U';
sz[31]:='V';
sz[32]:='W';
sz[33]:='X';
sz[34]:='Y';
sz[35]:='Z';
for j:=1 to 32 do begin
Randomize;
i:=Random(36);
tem:=tem+sz[i];
end;
edt1.Text:=tem;

相关阅读 >>

Delphi 如何确定活动桌面是否已启用

Delphi dbgrid鼠标滚屏

Delphi如何过xp的防火墙而不被拦截

Delphi中实现javascript gettime函数

Delphi 2009 中 tstrings 与 tstream 的增强

Delphi文件操作所涉及的一些函数

Delphi xe 制作的萤光时钟,可改作屏保

Delphi xe5 android在桌面添加快捷方式

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

Delphi 图像二值化

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...