本文整理自网络,侵删。
{自定义产生随机字符串函数}
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的tservice 服务路径获取 dll中获取文件路径
Delphi xe webbroker 开发,解决 response 返回中文乱码问题
Delphi 从indy9升级到indy10时idtcpserver的变化
更多相关阅读请进入《Delphi》频道 >>