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把流中的字符串转换为utf格式

Delphi 下找到目录中的所有文件夹

Delphi中destroy, free, freeandnil, release用法和区别

Delphi 中的常用事件

Delphi嵌入循环汇编

Delphi写文本文件

Delphi isipadress 非正则表达式验证ip的方法

Delphi 获取外部程序句柄与发送消息

Delphi tapplication大全

Delphi 窗体form的formstyle属性设置为fsstayontop时属性设置不起作用问题探讨。

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

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