Delphi TDictionary 简单用法

本文整理自网络，侵删。

 program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils, System.Generics.Collections;var{  Dictionary: TDictionary<LongWord, string>;  aPair: TPair<LongWord, string>;}
   Dictionary: TDictionary<string, LongWord>;  aPair: TPair<string, LongWord>;begin  {Dictionary := TDictionary<LongWord, string>.Create;  Dictionary.add(1, 'First Item');  Dictionary.add(2, 'Second Item');  Dictionary.add(3, 'Third Item');  Dictionary.add(4, 'Third Item');  Dictionary.add(5, 'Forth Item');  Dictionary.add(6, 'Fifth Item');
  for aPair in Dictionary do    writeln(aPair.Value);                           }

Dictionary := TDictionary<string, LongWord>.Create;  Dictionary.AddOrSetValue('First Item',0);  Dictionary.AddOrSetValue('Second Item',0);  Dictionary.AddOrSetValue('Third Item',0);  Dictionary.AddOrSetValue('Third Item',0);  Dictionary.AddOrSetValue('Forth Item',0);  Dictionary.AddOrSetValue('Fifth Item',0);
  for aPair in Dictionary do   // writeln(aPair.Value);    writeln(aPair.Key);  readln;end. 

相关阅读 >>

Delphi 字幕下载单元subdownload.pas

Delphi实现阿里云印刷文字识别_身份证识别

Delphi button 实现下拉列表

Delphi 自定义消息拦截

Delphi 禁止用户关闭操作系统

Delphi 根据进程名称获取进程号

Delphi 万年历 程序源码下部分(包括：农历计算、24节气、星期计算、属相)

Delphi 生成指定范围和个数的不重复的随机整数

Delphi下载指定网址（url）的文件，带进度条显示

Delphi版的隐藏模块单元 hidemoduleunit.pas

更多相关阅读请进入《Delphi》频道 >>