Delphi 随机字符串函数

最新推荐文章于 2024-01-10 16:00:32 发布

原创最新推荐文章于 2024-01-10 16:00:32 发布 · 539 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个简单的随机字符串生成函数，该函数可以根据需求选择是否包含大写字母、小写字母及数字，并能指定生成字符串的长度。

随机字符串函数

可以使用大写小写数字以及混合

function RandomStr(Upper: boolean; Lower: boolean; Number: boolean;
StrLength: Integer): string;
var
  i: Byte;
  s: string;
begin
  if Upper then
    s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  else
    s := '';

  if Lower then
    s := s + 'abcdefghijklmnopqrstuvwxyz';

  if Number then
    s := s + '0123456789';
  if s = '' then
    exit;

  result := '';
  for i := 0 to StrLength - 1 do // 根据长度来循环
  begin
    Randomize; // 每次都初始化随机种子
    result := result + s[Random(Length(s) - 1) + 1];
  end;
end;