delphi - 随机化字符串列表

Question

如何随机化 StringList 中的字符串，类似于此在线工具的工作方式。如果有人熟悉它，请检查:http://textmechanic.co/Randomize-List.html

Answer 1

执行随机播放的一种常见算法是 Fisher-Yates洗牌。这会生成均匀分布的排列。

要在 Delphi TStrings 对象上实现，您可以使用:

procedure Shuffle(Strings: TStrings);
var
  i: Integer;
begin
  for i := Strings.Count-1 downto 1 do 
    Strings.Exchange(i, Random(i+1));
end;

现在，虽然理论上这会生成均匀分布的排列，但实际性能在很大程度上取决于随机数生成器的质量。这在 Knuth 的《计算机编程艺术》第 2 卷第 3.4.2 节“算法 P”中进行了讨论。

进一步阅读:

• Fisher-Yates shuffle (维基百科)
• Jeff Attwood 关于洗牌的两篇博客文章:Shuffling和 The Danger of Naïveté
• The intuition behind Fisher-Yates shuffling (伊莱·本德斯基)
• Art of Computer Programming ，Donald Knuth，第 2 卷，第 3.4.2 节
• Shuffling (维基百科)