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

https://github.com/slibre/freepascal · Puppet · 27 lines · 22 code · 5 blank · 0 comment · 1 complexity · 76b204615e763a3b7d9107b88352bb40 MD5 · raw file

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