本文整理自网络,侵删。
{自定义产生随机字符串函数}
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 stringtowidestring widestringtostring
Delphi timagelist 中使用 透明 png 图标
Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息
更多相关阅读请进入《Delphi》频道 >>