Delphi7 如何给Arcgis下的TMapControl中的图层增加一个点信息

Question

arcgisdelphiiworkspaceifeaturedataset

Answer 1

procedure Tfrm_main.AddFeature(x,y:Double);
var
  pFClass: IFeatureClass;
  pFLayer: IFeatureLayer;
  pFeature: IFeature;
  pPoint: IPoint;
begin  pFLayer := mpcntrl_main.Layer[需要编辑的层序号] as IFeatureLayer;
  pFLayer.Get_FeatureClass(pFClass);  pFClass.CreateFeature(pFeature);  pPoint:= CoPoint.create as IPoint;
  pPoint.PutCoords(x,y);
  pFeature._Set_Shape(pPoint);
  pFeature.Set_Value(3,'aaaa');
  pFeature.Set_Value(4,'bbbb');
  pFeature.Set_Value(5,'cccc');
  pFeature.Store;  mpcntrl_main.Refresh;
  mpcntrl_main.ActiveView.Refresh;
end;其实根本用不上出错地方。