本文整理自网络,侵删。
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 请求时间,为当前时间,数值为1970-01-01以来的毫秒数
Delphi stringgrid 实例2:1、获取 stringgrid 的行数、列数; 2、给单元赋值
Delphi 如何通过代码控制打开键盘数字锁定numlock
Delphi xe7里面 sharedactivitycontext怎么提示错误?
更多相关阅读请进入《Delphi》频道 >>