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 webbrowser控件实现对ie浏览器的各种控制

Delphi 万能模糊查询

Delphi idhttp控件学习(图片下载)

Delphi tadodataset 中文使用说明

Delphi stringgrid之属性大全

Delphi 动态修改显示器分辨率

Delphi xe下支持unicode编码方式

Delphi listview的用法

Delphi捕获twebbrowser的close事件

Delphi xe7android应用启用蓝牙

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

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