delphi - 随机化字符串列表

Question

我怎样才能像这个在线工具的工作方式一样随机化 StringList 中的字符串。如果有人熟悉它，请检查：http ://textmechanic.co/Randomize-List.html

Answer 1

执行 shuffle 的一种常见算法是Fisher-Yates shuffle。这会产生均匀分布的排列。

要在 DelphiTStrings对象上实现，您可以使用以下命令：

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 洗牌（维基百科）
• Jeff Attwood 关于洗牌的两篇博客文章：洗牌和天真的危险
• Fisher-Yates 洗牌背后的直觉(Eli Bendersky)
• 计算机编程艺术，唐纳德·高德纳，第 2 卷，第 3.4.2 节
• 洗牌（维基百科）

Answer 2

只需遍历字符串列表并给每个项目一个不同的随机位置：

for i := StringList.Count - 1 downto 1 do
  StringList.Exchange(i, Random(i+1));

[编辑] 稍微改变了循环以使洗牌均匀。

Answer 3

要随机化 a ，请使用随机结果值TStrings创建一个比较器，并用它对 进行排序。TComparerTStrings

/// The Comparer
TMyShuffleComparer= class(TComparer<string>)
public
  function Compare(const Left, Right: string): Integer; override;
end;

/// The randomizer 
function TMyShuffleComparer.Compare(const Left, Right: TCard): Integer;
begin
  // To sort, get a random number for compare result
  Result := Random(100) - 50;
end;

/// How to call the comparer
procedure TMyStrings.Shuffle;
begin
 Sort(TMyShuffleComparer.Create);
end;

或直接致电：

  /// Shuffle
  MyString.Sort(TMyShuffleComparer.Create);