Delphi 获取随机字符串的方法 GetRandomString

本文整理自网络，侵删。

 function 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;
procedure TForm1.FormCreate(Sender: TObject);beginForm1.Caption:=SuiJiString(32);end; 

相关阅读 >>

Delphi xe6 在两个图片切换的时候实现翻书效果

Delphi ｉｎｓｅｒｔ 插入一个字符(串)

Delphi使用edge browser浏览器组件

Delphi的with…do语句的用法

Delphi 中 16 进制转换为 10 进制

Delphi强制应用非一次性载入的注册表设置

Delphi xe5 android 调用 google zxing

Delphi using windows print spooler to run your file

rad studio Delphi创建安卓服务creating android services

Delphi 快速调用resource资源数据

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