代码有几处可能会出问题的地方:
case ToolNum of
CUSTOM_INFO_TOOL : //信息工具Info
begin
pt := CoPoint.Create;
pt.Set_(X1,Y1);
lyr:=GetLayer(pt,mArea);
///////加入判断,lyr是否是空否则出错。
mlyr:= lyr;
CUSTOM_LINKTOCITY:
begin pt := CoPoint.Create;
pt.Set_(X1,Y1);
lyr:=GetLayer(pt,mArea);
/////同样需要判断,若lyr是空,后面可能会出错
FtrName:=GetFeatureName(pt,lyr);
lyr := Map1.Layers.Item(LayerName);
///////需要判断lyr是否为空
case ToolNum of
CUSTOM_INFO_TOOL : //信息工具Info
begin
pt := CoPoint.Create;
pt.Set_(X1,Y1);
lyr:=GetLayer(pt,mArea);
///////加入判断,lyr是否是空否则出错。
mlyr:= lyr;
CUSTOM_LINKTOCITY:
begin pt := CoPoint.Create;
pt.Set_(X1,Y1);
lyr:=GetLayer(pt,mArea);
/////同样需要判断,若lyr是空,后面可能会出错
FtrName:=GetFeatureName(pt,lyr);
lyr := Map1.Layers.Item(LayerName);
///////需要判断lyr是否为空
解决方案 »
- 我写的程序在别的机器上运行出现错误
- 用户访问历史
- delphi 调用oracle 10g 存储过程并返回一个结果集
- 怎么造成Cannot focus a disabled or invisible window.这个错误?
- 在线给分........................................................点击dbgrid中的一条记录后,为什么dbgrid.selectedrows.cout的值为零
- 做安装文件时不装Delphi,而且要运行数据库,请问要打包哪些文件?
- 在哪里可以下载dxfProgressBar控件,急急~~
- 提问,用delphi编写判断十六制位数?
- ☆☆☆ 程序经理 ☆☆☆
- 高分悬赏FTP问题
- 如何把一个工程另存为模板?不好意思,太简单了
- 打开文件对话匡构件叫什么名字?
http://www.pchome.net/dl/delphi.htm