delphi - 在Delphi中生成三个随机字符

Question

嗨，我正在尝试使用 Delphi 中的函数生成三个随机字符，代码是这样的:

function generate(cantidad: integer): string;
const
  letras_mi = 'abcdefghijklmnopqrstuvwxyz';
const
  letras_ma = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
const
  numeros = '0123456789';
var
  finalr: string;
begin

  finalr := '';

  finalr := finalr + IntToStr(Random(Length(letras_mi)) + 1);
  finalr := finalr + IntToStr(Random(Length(letras_ma)) + 1);
  finalr := finalr + IntToStr(Random(Length(numeros)) + 1);

  Result := finalr;

end;

问题是像 20142 这样的事情我回来了，而我实际上正在等待 3 个字符常量随机变量。

Answer 1

您的代码正在将整数索引值转换为字符串。请注意，您对常量的唯一引用是获取它们的长度。您返回索引而不是字符。

您可以使用生成的整数索引来引用字符串常量中的元素来修复代码。梅森和肯展示了如何做到这一点。

就我个人而言，我会取消常量并编写

Chr(ord('a') + Random(26))

和

Chr(ord('A') + Random(26))

和

Chr(ord('0') + Random(10))

这些字符的序数值早在允许此类代码时就已设计。