为什么 TDictionary 存储的值是乱序的？ [重复]

Question

我正在用一些值填充字典，并希望以与填充它们相同的顺序将它们返回。

不知怎的，它似乎不起作用，当我迭代项目时，它们是按非逻辑顺序排序的（IMDO）。

运行以下程序后：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Generics.Collections;
var
  Dictionary: TDictionary<LongWord, string>;
  aPair: TPair<LongWord, string>;
begin
  Dictionary := TDictionary<LongWord, string>.Create;
  Dictionary.add(1, 'First Item');
  Dictionary.add(2, 'Second Item');
  Dictionary.add(3, 'Third Item');
  Dictionary.add(4, 'Forth Item');
  Dictionary.add(5, 'Fifth Item');
  Dictionary.add($FFFFFFFF, 'Longword Item');

  for aPair in Dictionary do
    writeln(aPair.Value);

  readln;
end.

我得到了以下结果：

Forth Item
Longword Item
First Item
Third Item
Second Item
Fifth Item

我做错了什么吗？

Answer 1

Delphi 字典类是无序的。它的行为符合设计。如果您希望保持顺序，那么您需要使用有序数据结构。例如数组或列表。

如果您希望有序访问以及 O(1) 查找，那么您需要同时维护两个集合。一个用于有序访问的数组或列表，以及一个用于 O(1) 查找的字典。或者，找到一个提供有序字典实现的库。