Randomize StringList

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; 

，而在理论上，这将产生均匀分布排列，实际性能在很大程度上取决于随机数发生器的质量。这在计算机程序设计，第2卷，第3.4.2节算法P的Knuth的艺术讨论

延伸阅读：

• Fisher-Yates shuffle（维基百科）在洗牌
• 杰夫·阿特伍德的两位博客文章：Shuffling和The Danger of Naïveté
• The intuition behind Fisher-Yates shuffling（ELI Bendersky）
• Art of Computer Programming，高德纳，第2卷，第3.4.2节
• Shuffling（维基百科）

Answer 2

要随机化TStrings，创建一个TComparer与比较器随机结果值，和排序TStrings它。

/// 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; 

，或者直接拨打：

​​

Answer 3

通过的StringList只是循环并为每个项目不同的随机地点：

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

[编辑] 改变了循环有点使洗牌制服。