看流星社区

 找回密码
 注册账号
查看: 2344|回复: 2

[Delphi] DELPHI生成随机字符串源码

[复制链接]

该用户从未签到

发表于 2019-1-31 18:14:29 | 显示全部楼层 |阅读模式
DELPHI生成随机字符串

[注:生成长度为16位数,取值范围为'A-Z'a-z''0-9'的随机数]

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;
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 04:34

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表