本文整理自网络,侵删。
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有无生成空格的函数,like vb的space(1)
Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除
Delphi webbrowser1使用进度条查看浏览器状态
Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)
更多相关阅读请进入《Delphi》频道 >>