/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
- uses gset, gutil;
- type lesslli=specialize TLess<longint>;
- setlli=specialize TSet<longint, lesslli>;
- var data:setlli; i:longint; iterator:setlli.TIterator;
- begin
- data:=setlli.Create;
- for i:=0 to 10 do
- data.insert(i);
- {Iteration through elements}
- iterator:=data.Min;
- repeat
- writeln(iterator.Data);
- until not iterator.next;
- {Don't forget to destroy iterator}
- iterator.Destroy;
- iterator := data.FindLess(7);
- writeln(iterator.Data);
- iterator.Destroy;
- data.Destroy;
- end.