获取随机字符串的方法 GetRandomString
方法 获取 字符串 随机
2023-09-11 14:19:08 时间
方法1:推荐方便。
System.Hash 单元
Memo1.Lines.Add(THash.GetRandomString(50));
方法二(自己写的):
function TStrApi.SuiJiString(const AWeiShu: Integer): string; const SourceStr: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'; var MyRep: string; I: Integer; begin Randomize; for I := 1 to AWeiShu do begin //这里只所以必须加1,是因为SourceStr是从1开始的,而Random是从0开始的,SourceStr[0]就会报错,SourceStr[63]也会报错 MyRep := MyRep + SourceStr[Random(61)+1]; end; Exit(MyRep); end;
PK结果,效率差不多。:
procedure TForm6.Button1Click(Sender: TObject); var I: Integer; startTime: Cardinal; strResult: string; begin startTime := GetTickCount; for I := 1 to 10000 do begin strResult := THash.GetRandomString(50); end; Label1.Caption := '耗时: ' + (GetTickCount - startTime).ToString; end; procedure TForm6.Button2Click(Sender: TObject); const SourceStr: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'; var strResult: string; I,K: Integer; startTime: Cardinal; begin startTime := GetTickCount; for I := 1 to 10000 do begin Randomize; strResult := ''; for K := 1 to 50 do begin //这里只所以必须加1,是因为SourceStr是从1开始的,而Random是从0开始的,SourceStr[0]就会报错,SourceStr[63]也会报错 strResult := strResult + SourceStr[Random(61)+1]; end; end; Label1.Caption := '耗时: ' + (GetTickCount - startTime).ToString; end;
http://www.cnblogs.com/del88/p/6911709.html
相关文章
- [机器码] 获取 MAC 地址的几种方法
- js+jquery动态设置/添加/删除/获取元素属性的两种方法集锦对照(动态onclick属性设置+动态title设置)
- Android Integer.parseInt java.lang.NumberFormatException: Invalid int解决方法
- Delphi中获取十位数Unix时间戳DateTimeToUnix注意事项及互转方法
- Springboot 获取 /resources 目录资源文件的 9 种方法
- OpenCV_Mat类对象常用属性值的获取方法
- 运维前线:一线运维专家的运维方法、技巧与实践2.4 如何利用Python获取Facts
- 利用反射获取类或者方法或者字段上的注解的值
- go build 成不同环境的方法:mac、linux、windows
- js 获取css非行内样式,你应该了解的getComputedStyle方法
- android Uri获取真实路径转换成File的方法
- 批处理bat标准化获取当前系统日期的几种方法,补0
- js获取元素CSS值的各种方法分析
- ubuntu 16.04 安装chrome的方法
- 文本摘要生成方法
- GameObject.GetComponent获取组件与GetComponentInChildren方法的区别
- 浅析setup如何通过ref获取子组件实例中的DOM结构/数据/方法及获取子组件实例数据都是空的处理(defineExpose API 的使用)、Vue3模板引用refs、在组合式API中使用template refs、for循环中如何获取及重置refs、如何监听模板引用
- JS/JQuery获取当前元素的上一个/下一个兄弟级元素等元素的方法
- nuxt之vuex中使用nuxtServerInit方法
- PSINS初始对准方法
- 从环境变量循环获取 - name: "discovery.zen.minimum_master_nodes" value: "2" 带点类型的环境变量然后再放入数组 最后执行命令作为参数 另一种env的处理方法是启动容器后执行脚本 声明新变量赋值环境变量的值 sed 替换变量到 配置文件
- jQuery -> 获取后代元素的三种方法
- Android 基础 之 三种方法尝试如何完整的获取到用户已安装应用列表
- Django框架下的form表单提交数据(及文件)获取的方法
- java.lang.Math中的基本方法
- stringstream 使用方法
- QT:获取本地主机信息与ip的方法
- 原生js源码之Object.keys()方法
- C# 获取所有对象的字符串表示一ToString方法