rainfeeling
路人甲
路人甲
  • 注册日期2005-05-27
  • 发帖数11
  • QQ
  • 铜币149枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1922回复:1

[求助]MapX中类型为Feature赋值的问题?

楼主#
更多 发布于:2006-02-11 11:40
<P>procedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1,<BR>  X2, Y2, Distance: Double; Shift, Ctrl: WordBool;<BR>  var EnableDefault: WordBool);<BR>var<BR>  fNewSymbol:CMapXFeature;<BR>  fMapSymbol:CMapXFeature;<BR>  pt:CMapXpoint;<BR>  farray: array of Vehicle;<BR>begin<BR>  if ToolNum=CarTool then<BR>  begin<BR>    pt:=CoPoint.Create;<BR>    pt.Set_(X1,Y1);</P>
<P>    fNewSymbol:=Map1.FeatureFactory.CreateSymbol(pt,Map1.DefaultStyle);</P>
<P>    fMapSymbol:=lyrMyLayer.AddFeature(fNewSymbol,EmptyParam);<BR>    iVeHicleCount:=IVehicleCount+1;</P>
<P>    fArray[iVehicleCount].fFeature:=fMapSymbol;  //这一句出现Access Violation的错误问题,请问大虾们怎么解决<BR>    fArray[iVehicleCount].lSpeed:=0;<BR>    fArray[iVehicleCount].dHeading:=0;<BR>    fArray[iVehicleCount].sName:= 'Vehicle'+inttostr(iVehicleCount);<BR>    UpdatelistCars;<BR>  end;<BR>end;</P>
喜欢0 评分0
dhwl
路人甲
路人甲
  • 注册日期2006-02-14
  • 发帖数21
  • QQ
  • 铜币148枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2006-02-14 10:15
屏蔽掉这一句试试
举报 回复(0) 喜欢(0)     评分
游客

返回顶部