Sortowanie TDictionary według klucza Integer w porządku rosnącym

Question

Jak mogę posortować TDictionary według klucza Integer w porządku rosnącym w Delphi 2009?

Answer 1

Słowniki nie są sortowane i nie mogą być sortowane (inne niż przez skrót, który są). Musisz użyć innego pojemnika, jeśli chcesz posortować klucze lub wartości. Na przykład:

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    Generics.Collections, Generics.Defaults, SysUtils; 

var 
    LDict : TDictionary<integer, string>; 
    i, j : integer; 
    LArray : TArray<integer>; 
begin 
    LDict := TDictionary<integer, string>.Create; 
    try 
    // Generate some values 
    Randomize; 
    for i := 0 to 20 do begin 
     j := Random(1000); 
     LDict.AddOrSetValue(j, Format('The Value : %d', [j])); 
    end; 
    WriteLn('Disorder...'); 
    for i in LDict.Keys do 
     WriteLn(LDict.Items[i]); 
    // Sort 
    LArray := LDict.Keys.ToArray; 
    TArray.Sort<integer>(LArray); 
    WriteLn('Order...'); 
    for i in LArray do 
     WriteLn(LDict.Items[i]); 
    finally 
    LDict.Free; 
    end; 
    Readln; 
end.