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 utf8乱码问题

Delphi线程池

Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态

Delphi 取控件下的图象

Delphi 的webbrowser如何全选并复制浏览器上的文字

Delphi 实现对xml文件的读写操作

Delphi汉字与汉字区位码的转换

Delphi 程序员的反攻－－－－打击p2p

解决Delphi程序在非中文系统下乱码

Delphi 10 seattle中使用本地通知，请使用tnotificationcenter组件

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

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