delphi 自定义产生随机字符串函数

本文整理自网络，侵删。

 {自定义产生随机字符串函数}
function GetRandomName:string;
var
SourceStr,Str:String;
i:integer;
begin
SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
for i:=1 to 16 do Str:=Str+SourceStr[Random(51)+1];
Result:=Str;
end; 

相关阅读 >>

Delphi调节音量及静音

Delphi 创建大窗口

Delphi xe6 switch元件�繁�w���}

Delphi 判断指定字符串是否开头 startstext用法

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

Delphi ile dataset to xml

Delphi 双进程监控保护

Delphi tstylemanager读取vsf皮肤文件信息

Delphi 根据delta自动生成sql语句

Delphi sendemail 邮件发送单元

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

转载请注明出处：木庄网络博客 » delphi 自定义产生随机字符串函数