Delphi. Jcl. HashMaps

Example

program JediHashMaps;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  JclContainerIntf,
  JclHashMaps;

var
  h: IJclIntegerIntegerMap;

const
  key = 1;
  value = 123;

begin
  h := TJclIntegerIntegerHashMap.Create(10);
  h.PutValue(key, value);

  if h.ContainsKey(key) then
    Writeln(Format('contains key %s with value %s', [key.ToString(), h.Items[key].ToString()]));

  ReadLn;
end.
This entry was posted in Без рубрики. Bookmark the permalink.