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中如何将一整个文件读入内存

Delphi实现获取文件及文件夹大小(支持超过2g的大文件)

Delphi string.split 按照任意字符串分割语句

Delphi 最精简的小写金额转大写的函数

Delphi 获取系统mydocuments文件夹路径

Delphi 提取时间成分

Delphi 如何得到 winrar 处理解压缩文件的返回值 ？

Delphi 自动关闭弹出的窗口

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

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