如何将delphi代码改写成X3的？初学者

hanjason996

怎么没有人回答呢？这个错误是什么引起的？代码如下：
var
m_layer:mygis.cmapxlayer;  
m_coordsys:mygis.cmapxcoordsys;
filename :string;
begin
map1.GeoSet:='d:mapsgps.gst';
map2.GeoSet:='d:mapsg.gst';
filename   :='d:mapsg.gst';


m_coordsys:=Business.System.ComObj.CreateOleObject('MapX.CoordSys.5')as CMapXCoordSys ;
//m_coordsys:=map1.NumericCoordSys;

m_Layer:=Map2.Layers.CreateLayer('eye',filename,nil,nil,m_coordsys);//运行到这里就报错
end;

mygis是我导入的第三方控件名称，

atiger

楼主，我问一下，这个控件是用于啥系统中？
另外，问一下，你是 淄矿集团 的员工吗？

hanjason996

是淄矿的外协技术人员，做gis用的控件。能帮着解决下问题吗？

atiger

如果是这样，请楼主找一下商务吧。