fpc/packages/fcl-stl/doc/mapexample.pp

uses gmap, gutil;

type lesslli=specialize TLess<longint>;
     maplli=specialize TMap<longint, longint, lesslli>;

var data:maplli; i:longint; iterator:maplli.TIterator;

begin
  data:=maplli.Create;

  for i:=0 to 10 do
    data[i]:=10*i;

  writeln(data[7]);
  data[7] := 42;

  {Iteration through elements}
  iterator:=data.Min;
  repeat
    writeln(iterator.Key, ' ', iterator.Value);
    iterator.Value := 47;
  until not iterator.next;
  iterator.Destroy;

  iterator := data.FindLess(7);
  writeln(iterator.Value);
  iterator.Destroy;

  data.Destroy;
end.