mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 09:38:44 +02:00
31 lines
565 B
ObjectPascal
31 lines
565 B
ObjectPascal
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.
|