本文整理自网络,侵删。
function GetRandomPassword(ALen: Integer): string;varstr: string;beginRandomize;str := 'ABCDEF0123456789';Result := '';repeat Result := Result + str[Random(Length(str)) + 1];until (Length(Result) = ALen);end;
相关阅读 >>
Delphi使用spcomm串口通信 串口号大于10出错的解决办法
Delphi 权限控制(Delphi tactionlist方案)
更多相关阅读请进入《Delphi》频道 >>