向点图层中增加点记录 ( 积分: 200 )

我现在有一个图层，但没有x,y字段
原始图层shp文件的字段:

FID SHAPE NAME GB VERSION GEOID GMOROTATION

我现在有很多点，都知道他们的x,y坐标,现在想把这些点增加到原始图层中去，请问怎样用程序往图层里增加点记录？

问题解决了，呵呵呵

呵呵,恭喜楼主!怎么解决的啊>

while not UDM.cdsMaster.Eofdo

begin

FrmSchedule.ProgressBar.Position := i;
Lon := UDM.cdsMaster.FieldByName('LONGTITUDE').AsFloat;
Lat := UDM.cdsMaster.FieldByName('LATITUDE').AsFloat;
PoliceMan := UDM.cdsMaster.FieldByName('NAME').AsString;
HandSet := UDM.cdsMaster.FieldByName('LOGIN_NAME').AsString;
DeptName := UDM.cdsMaster.FieldByName('GROUPID').AsString;

X:=0;
Y:=0;
C:=114.0;
L:=Lon;
B:=Lat;
SgMidServ := TsgMidServ.Create(NIL);
SgMidServ.sgGPSCvtBL2XY(B,L,C,1,Y,X);
Pt.X := X;
Pt.Y := Y;

Recs:=IMoMapLayer(MainForm.MostMap.layers.item('警员位置')).Records;
Recs.AddNew;
Recs.fields.item('shape').value:=pt;
Recs.fields.item('NAME').value:=PoliceMan;
Recs.fields.item('LOGIN_NAME').value:=HandSet;
Recs.fields.item('GROUPID').value:=DeptName;
Recs.fields.item('X').value:=X;
Recs.fields.item('Y').value:=Y;
Recs.update;
Recs.stopediting;

UDM.cdsMaster.Next;
i := i+1;
end;

UDM.cdsMaster.Close;