把layer1中的feature添加到layer2
var
Feas: CMapXFeatures;
Fea: CMapXFeature;
i: integer;
begin
Feas:=Layer1.AllFeatures;
layer2.Editable := true;
layer2.begin
Access(miAccessReadWrite);
for i :=1 to Feas.Countdo
Layer2.AddFeature(Feas.Item(i),EmptyParam);
//添加
layer2.endAccess(miAccessEnd);
layer1.Editable = true;
layer1.begin
Access(miAccessReadWrite);
for i :=1 to Feas.Countdo
Layer1.DeleteFeature(Feas.Item(i));
//删除
layer2.endAccess(miAccessEnd);
end;
