Delphi X秒生成大量垃圾字符

本文整理自网络，侵删。

 Delphi X秒生成大量垃圾字符

function RandomStr(Digit:Integer):string;
var
i: integer;
s: string;
begin
s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
setLength(Result,Digit);
Randomize;
for i := 1 to Digit do //循环次数也就是字节数

begin
Result[I] := s[Random(Length(s)-1)+1];
end;
end;

 

相关阅读 >>

Delphi webbrowser 跨域访问

Delphi 设置系统启动文件夹自身开机自动运行

Delphi 感染u盘

Delphi删除目录及子目录及所有目录下的文件

Delphi rest/post

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi图像细化处理

Delphi system.net.httpclient 下载

Delphi richedit控件中插入gif动画表情

Delphi实现身份证号码15到18位升位算法

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

转载请注明出处：木庄网络博客 » Delphi X秒生成大量垃圾字符