Delphi XE8实现编辑框内A-Z 26字母无重复随机重排的方法咨询

核心采用Fisher-Yates（Knuth）标准洗牌算法实现，从根源上保证全排列无重复，无需额外去重判断，完全适配XE8原生语法，不需要引入第三方组件。

实现逻辑 #

• 初始化固定无重复的A-Z字母池，不依赖现有编辑框的残留值
• 对字母池执行从尾到头的遍历交换，每次在未排序区间内随机选取元素完成位置交换
• 将洗牌完成的序列按顺序写回对应的26个编辑框

具体Scramble按钮点击事件代码 #

procedure TForm1.btnScrambleClick(Sender: TObject);
var
  letterPool: array[0..25] of Char;
  i, swapPos: Integer;
  tempChar: Char;
begin
  // 初始化全量A-Z字母池 天然无重复
  for i := 0 to 25 do
    letterPool[i] := Char(Ord('A') + i);

  // 执行Fisher-Yates洗牌流程
  Randomize; // 重置随机种子 避免每次程序启动出现固定的排列结果
  for i := 25 downto 1 do
  begin
    // 在0~i的未排序区间内生成随机位置索引
    swapPos := Random(i + 1);
    // 交换当前元素和随机位置元素
    tempChar := letterPool[i];
    letterPool[i] := letterPool[swapPos];
    letterPool[swapPos] := tempChar;
  end;

  // 把洗牌结果写回编辑框 示例逻辑为匹配Edit1~Edit26的组件命名
  for i := 0 to 25 do
    (Self.FindComponent('Edit' + IntToStr(i + 1)) as TEdit).Text := letterPool[i];
end;

常见失效原因排查（对应此前使用Random相关方法无效的场景） #

1. 缺失Randomize调用：如果没有在洗牌流程前执行这行代码，Delphi的随机数生成器会使用固定的初始种子，每次启动程序后点击Scramble按钮生成的排列完全一致，看起来就像功能没有生效
2. 采样逻辑错误：如果采用“每次生成随机索引直接填字母、不做已选值排除”的实现，极高概率出现重复字母，甚至出现编辑框内容没有变化的情况
3. 错误地把Randomize放在随机数生成的循环内部：频繁重置种子会导致生成的随机值出现集中偏差，无法生成均匀分布的排列，甚至出现大量重复值

适配调整说明 #

如果你的26个编辑框不是Edit1到Edit26的命名规则，只需要修改上述代码中最后一步的写回逻辑即可：比如如果你的编辑框存在自定义的组件列表中，直接遍历列表给每个TEdit对象赋值即可，核心的洗牌逻辑不需要做任何改动。
这个算法的时间复杂度为O(n)，26个元素的场景下无任何性能损耗，从数学原理上保证序列完全随机、无重复值，不存在“随机半天凑不齐26个不重复字母”的死循环问题。

内容的提问来源于stack exchange，提问作者Jerry Mallett