delphi随机字符(密码生成)函数

本文整理自网络，侵删。

 
function GetRandStr(len : Integer; lowercase : Boolean = True; num : Boolean = True; uppercase : Boolean = False) : string;const  upperStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';  lowerStr = 'abcdefghijklmnopqrstuvwxyz';  numStr = '0123456789';var  sourceStr : string;  i : Integer;begin  sourceStr := '';  Result := '';  if uppercase = True then    sourceStr := sourceStr + upperStr;  if lowercase = True then    sourceStr := sourceStr + lowerStr;  if num = True then    sourceStr := sourceStr + numStr;  if (sourceStr = '') or (len<1) then    exit;  Randomize;  for i:=1 to len do  begin    Result := Result + sourceStr[Random(Length(sourceStr)-1)+1];  end;end;
 

相关阅读 >>

Delphi 实现文件拖放完整代码

Delphi注册与卸载系统服务

Delphi gettickcount获取电脑开机时间

Delphi 实现文件占坑

Delphi使用xmlhttp组件代码

Delphi memo1 字符串快速查找定位

Delphi的idhttp报iohandler value is not valid错误的原因

Delphi 字符串保存为 txt文件

Delphi xe7 判断android应用程序中的通信状态类型

Delphi 解析系统环境变量

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

转载请注明出处：木庄网络博客 » delphi随机字符(密码生成)函数