delphi TDictionary 简单用法
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.Generics.Collections;
var
{ Dictionary: TDictionary;
aPair: TPair;}
Dictionary: TDictionary;
aPair: TPair;
begin
{Dictionary := TDictionary.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.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.
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.036957979202271 seconds