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 setfileattributes 功能:修改文件属性

Delphi 对int64计算的一种处理方式

Delphi idhttp多线程下载

Delphi 在unicodestring中使用utf-8字符串

Delphi 代码查询一个 ip 地址的归属地

Delphi memo 的当前行、当前列与当前字符

Delphi命令行窗口实现9*9乘法表

Delphi 2010 unicode

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi 非常简单的字符串加密解密函数，支持中文

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

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