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 常用函数单元 umyfunctions

Delphi 下载一个jpg图片保存为bmp图片

Delphi xe7的android应用设定wifi的有效无效

Delphi中自适应窗体的实现

Delphi 运行clsid文件

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi xe6 通过javascript api调用百度地图

Delphi 实现延时自动关闭对话框

Delphi 10 seattle中使用本地通知，请使用tnotificationcenter组件

Delphi中的copy，delete，pos和leftstr,rightstr的用法

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

转载请注明出处：木庄网络博客 » Delphi TDictionary 简单用法