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 比较两数字大小取最大值

crossbow病毒开放源代码-熊猫烧香源始代码

Delphi里实现对图片base64编码解码

Delphi 使控件变成圆角的方法

Delphi timagelist 中使用 透明 png 图标

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

Delphi 的编码与解码(或叫加密与解密)函数

Delphi xe7中获得os平台和版本

Delphi mscomm 实时串口通讯

Delphi readln 读取一行文本

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

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