默认头像
路人甲
路人甲
  • 注册日期2006-02-27
  • 发帖数6
  • QQ
  • 铜币171枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1276回复:0

[求助]MO+Delphi 类型转换出错

楼主#
更多 发布于:2008-05-07 10:50

在利用MO读取Shape文件时出错,如下

var

lyr:MapLayer;
rset:Recordset;
dc:DataConnection;
pt:Point;

s:string;

begin
s:='D:\GS_SHP';
lyr:=MapLayer(CreateOleObject('MapObjects2.MapLayer'));
dc:=DataConnection(CreateOleObject('MapObjects2.DataConnection'));
dc.Database:=s;
lyr.GeoDataset:=dc.FindGeoDataset('GS');
rset:=lyr.Records;
rset.MoveFirst;
while (rset.EOF<>True) do
begin
fid:=rset.Fields.Item('FeatureID').ValueAsString;
pt:=Point(CreateOleObject('MapObjects2.Point'));
pt:=rset.Fields.Item('Shape').Value;--------------------------此处出错,类型无法转换
pt:=Point(rset.Fields.Item('Shape').Value);------------------如此转换也出错,无法强制转换

rset.MoveNext;
end;

end;

请大家帮忙看看,怎么转换,谢谢!

喜欢0 评分0
默认头像

返回顶部