Delphi TDictionary 按值排序

Question

我有一个TDictionary<String, TDateTime>像这样

aDict := TDictionary<String, TDateTime>.Create;
try
    aDict.Add('Foo', StrToDateTime('2016-10-14 15:00:00'));
    aDict.Add('Bar', StrToDateTime('2016-10-14 14:00:00'));
    aDict.Add('Baz', StrToDateTime('2016-10-14 13:00:00'));
finally
    aDict.Free;
end;

如果我像这样循环字典:

for aKey in aDict.Keys do 
    WriteLn(aKey );

输出是:

Bar
Baz
Foo

默认顺序似乎基于键的字母顺序，我想对字典从最旧的到最新的 TDateTime 值进行排序。预期输出是:

Baz
Bar
Foo

有什么建议吗？

Answer 1

字典是一个无序集合。如果它看起来以任何特定方式排序，那纯粹是偶然的。项目的顺序没有以任何方式定义。

如果您想订购这些商品，请将它们传输到数组 ( TArray<string> ) 或列表 ( TList<string> 或 TStringList ) 并在那里订购。