/packages/fcl-stl/doc/setexample.pp

 1uses gset, gutil;
 2
 3type lesslli=specialize TLess<longint>;
 4     setlli=specialize TSet<longint, lesslli>;
 5
 6var data:setlli; i:longint; iterator:setlli.TIterator;
 7
 8begin
 9  data:=setlli.Create;
10
11  for i:=0 to 10 do
12    data.insert(i);
13
14  {Iteration through elements}
15  iterator:=data.Min;
16  repeat
17    writeln(iterator.Data);
18  until not iterator.next;
19  {Don't forget to destroy iterator}
20  iterator.Destroy;
21
22  iterator := data.FindLess(7);
23  writeln(iterator.Data);
24  iterator.Destroy;
25
26  data.Destroy;
27end.