DelphiでStringList.SortをStableソートに置き換える方法はありますか

Question

私は単純なStringList.sortをやっていますが、DelphiはQuickSortを使用しています。これは安定したソートではないため、等しいキーでレコードの相対順序が変更される可能性があります。

私は安定した並べ替えを使用する必要があります。これを実装する最も簡単な方法は何ですか？

---

マイクWの答えは、あまりコードを変更しなくても簡単に行うことができます。

ありがとう、マイク。

Answer 1

文字列リストのObjectsプロパティをまだ使用していない場合は、オブジェクトプロパティの元の位置を整数として格納することが迅速かつ解決しない場合があります。元の位置を考慮して独自の安定した並べ替え比較関数を提供することができます。あなたがあなた自身のコードで行う必要があるだろうすべてはちょうどCustomSortを呼び出す前に、オブジェクトのプロパティを割り当てるリスト全体を反復です：

function StableSortCompare(List: TStringList; Index1, Index2: Integer): Integer; 
begin 
    result := CompareStr(List[Index1], List[Index2]); 
    if result = 0 then result := integer(List.Objects[Index1]) - integer(List.Objects[Index2]); 
end; 

procedure TSortTestForm.SortButtonClick(Sender: TObject); 
var 
    SL : TStringList; 
    i : integer; 
begin 
    SL := TStringList.Create; 
    try 
    SL.AddObject('One', pointer(0)); 
    SL.AddObject('One', pointer(1)); 
    SL.AddObject('One', pointer(2)); 
    SL.AddObject('Two', pointer(3)); 
    SL.AddObject('Two', pointer(4)); 
    SL.AddObject('One', pointer(5)); 
    SL.AddObject('One', pointer(6)); 
    SL.AddObject('One', pointer(7)); 
    // SL.Sort; // Try instead of custom sort to see difference 
    SL.CustomSort(StableSortCompare); 
    for i := 0 to SL.Count-1 do begin 
     Memo1.Lines.Add(Format('Text: %s Orig Pos: %d', [SL[i], integer(SL.Objects[i])])); 
    end; 
    finally 
    SL.Free; 
    end; 
end;