program JclStrSet_Test;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils
  , JclContainerIntf
  , JclHashSets
  ;

var
  aStrSet: IJclStrSet;
  s: String;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
  aStrSet := TJclStrHashSet.Create(256);
  try
    aStrSet.Add('first item');
    aStrSet.Add('second item');
    for s in aStrSet do
      Writeln(s);
    Readln;
  finally
    aStrSet := nil; // because interfaced
  end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.