blob: 679c73b03f15c4f54fd37a2c66118ab977e85680 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
uses gmap, gutil;
type lesslli=specialize TLess<longint>;
maplli=specialize TMap<longint, longint, lesslli>;
var data:maplli; i:longint; iterator:maplli.TMSet.PNode;
begin
data:=maplli.Create;
for i:=0 to 10 do
data[i]:=10*i;
{Iteration through elements}
iterator:=data.Min;
while iterator<>nil do begin
writeln(iterator^.Data.Key, ' ', iterator^.Data.Value);
iterator:=data.next(iterator);
end;
writeln(data.FindLess(7)^.Data.Value);
data.Destroy;
end.
|