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 按钮躲避鼠标点击

Delphi 根据年份获取年干支

如何使用Delphi 10 seattle的android应用做intent的发送和接收

Delphi三种弹窗

Delphi 校验手机号及身份证号

Delphi fastreport快速入门

Delphi2009之timage

Delphi动态创建一个ipedit控件

Delphi tpath.combine(); {结合路径}

Delphi idhttp最简洁的修改和取得cookie例子

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

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