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;
关键字词:
