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写的验证身份证号有效性函数

Delphi有无生成空格的函数,like vb的space(1)

Delphi 读取剪粘板内的html格式数据

Delphi 列出dbgrideh被选中的值

Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除

Delphi webbrowser1使用进度条查看浏览器状态

Delphi读取utf8格式ini及取得动态�热�

Delphi edit呈横线效果

Delphi 传输文件例子的核心代码

Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...