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

[編輯] 改變了循環有點使洗牌制服。