DELPHI生成随机字符串

本文整理自网络，侵删。

 
DELPHI生成随机字符串
var
    SourceStr,str:string;
    i:integer;
begin
    SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
    randomize;
    for i:=1 to 16 do
      str:=str+sourcestr[Random(62)+1];
    ShowMessage(str);
end;
[注：生成长度为16位数，取值范围为'A-Z'a-z''0-9'的随机数]
 

相关阅读 >>

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

Delphi 图像旋转90° 反旋转90°

Delphi 检查自己的进程的父进程

Delphi 获取内网所有ip地址

Delphi判断系统是否安装tcp/ip协议

Delphi使用hough变换查找直线

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi pagecontrol不显示tab方式

Delphi操作access

Delphi 用代码实现为程序创建快捷方式的二种方法

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

转载请注明出处：木庄网络博客 » DELPHI生成随机字符串