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 inttohexansi

Delphi 字符串加单引号

Delphi 10.3 开发app 在android手机上获取imei

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi之数组

Delphi ip地址转换

Delphi 倒计时对话框

Delphi多线程学习：多线程数据库查询（ado）

Delphi读写utf-8、unicode格式文本文件

Delphi字符串内多个空格合为一个空格

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

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