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 xe5实现datetimetounix/unixtodatetime的一点小改进

Delphi实现百度地图经纬度与地址互转

Delphi listview1 中添加check选中事件

Delphi 调用api.ocr.space的ocr接口

Delphi从trichedit获得rtf格式文本

Delphi根据网络链接截取域名

Delphi datasnap stream 传递大数据

Delphi使程序的窗口出现在最前面并激活

Delphi 设置系统默认打印机

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

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