如何在MapX中创建新的图层(50分)

急......

不会吧！！！在对像层里有add的方法。那就是了！！！

function TMain.createLyr(LyrName, LyrPath: string): boolean;
var
emptyparam: variant;
begin

result := true;
try
TVarData(empty).vType := varError;
TVarData(empty).vError := variant(DISP_E_PARAMNOTFOUND);
Map1.ControlInterface.Layers.CreateLayer(LyrName, LyrPath, 1, emptyparam, emptyparam);
except
result := false;
end;

end;

同意楼上的！

搞不懂干吗非要弄的这么复杂，
直接 Map1.Layers.CreateLayer(……);不就行了吗？
还要弄些什么TVarData(empty).vType := varError;
TVarData(empty).vError := variant(DISP_E_PARAMNOTFOUND);
还有Map1.ControlInterface……
好神秘哦，弄这么复杂到底有什么好处啊？
这些东西不是已经在mapx_tlb.pas中定义过了吗？