随机生成字符串
来源:互联网 发布:淘宝定时开售 编辑:程序博客网 时间:2024/04/24 12:09
function btnGenerateClick(Sender: TObject): string;
{max length of generated password}
const
intMAX_PW_LEN = 10;
var
i: Byte;
s: string;
begin
{if you want to use the 'A..Z' characters}
if cbAZ.Checked then
s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
else
s := '';
{if you want to use the 'a..z' characters}
if cbAZSmall.Checked then
s := s + 'abcdefghijklmnopqrstuvwxyz';
{if you want to use the '0..9' characters}
if cb09.Checked then
s := s + '0123456789';
if s = '' then exit;
Result := '';
for i := 0 to intMAX_PW_LEN-1 do
Result := Result + s[Random(Length(s)-1)+1];
end;
- 生成随机字符串
- 随机生成字符串
- 随机生成字符串
- 生成一个随机字符串
- 随机生成字符串
- 随机字符串生成
- C#随机生成字符串
- 生成随机字符串
- ASP生成随机字符串
- 生成随机字符串
- PHP生成随机字符串
- JavaScript 随机生成字符串
- Perl 生成随机字符串
- 随机字符串生成
- java 生成随机字符串
- 随机生成汉字字符串
- 生成随机字符串
- 生成随机字符串
- ADS
- 喜欢是一种心情,爱是一种感情
- Windows下如何彻底删除Oracle?
- 程序员何去何从?
- java数字金字塔(转)
- 随机生成字符串
- 开放源代码搜索引擎
- 关于Java栈与堆的思考 (转)
- C语言没有bool类型, C99标准stdbool.h定义了一个_Bool的宏
- java格式化数字
- 在软件设计的过程中如何处理类之间的关联?
- 用于 Power 体系结构的汇编语言
- xp下安装sqlserver2000时的常见问题
- 我的牡丹花 带图 2