本文整理自网络,侵删。
uses Generics.Collections; {Delphi 2009 新增的泛型容器单元}
var aa: TDictionary<integer,integer>; arr : TArray<Integer>; n : integer;begin aa := TDictionary<integer,integer>.Create; try aa.add(1,11); aa.add(2,22); aa.add(3,33);
arr := aa.Keys.ToArray; TArray.Sort<Integer>(arr);
for n in arr do ShowMessage(IntToStr(aa[n])); finally aa.Free; end;
相关阅读 >>
Delphi firdac 对 sqlite 数字, int64也会被截断,会出现负数情况处理
Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决
更多相关阅读请进入《Delphi》频道 >>