ПРИМЕР КОДА КАК ВЫВЕСТИ СПИСОК ИЗ СЛОВАРЯ TDictionary ПО ИНДЕКСУ

Question

ПРИМЕР КОДА КАК ВЫВЕСТИ СПИСОК ИЗ СЛОВАРЯ TDictionary ПО ИНДЕКСУ

var DList := TDictionary<string, string>.Create;
var SL := TStringList.Create;
try
// заполним словарь
for var i: integer := 0 to 9 do
DList.Add('key_' + i.ToString.PadLeft(2, '0'), 'value_' + i.ToString.PadLeft(2, '0'));

var ArKey := DList.Keys.ToArray;

// отсортируем массив
TArray.Sort<string>(ArKey);

for var i: integer := 0 to DList.Count -1 do
SL.Add(ArKey[i] + ' = ' + DList.Items[ArKey[i]]);

// вывод в список
ShowMessage(SL.Text);

finally
DList.Free;
SL.Free;
end;
Кто что думает, по этому поводу?