type
TKey = TSomeType;
TData = TSomeOtherType;
TMap = specialize TFPGMap<TKey, TData>;
...
c := TMap.Create;
for idx := 0 to a.count-1 do
begin
c.Add(a.keys[idx],a.data[idx]);
end;
for idx := 0 to b.count-1 do
begin
c.AddOrSetData(b.keys[idx],b.data[idx]);
end;
type
TKey = TSomeType;
TData = TSomeOtherType;
TMap = specialize TFPGMap<TKey, TData>;
...
c := TMap.Create;
for idx := 0 to a.count-1 do
begin
c.Add(a.keys[idx],a.data[idx]);
end;
for idx := 0 to b.count-1 do
begin
c.AddOrSetData(b.keys[idx],b.data[idx]);
end;