X
xindijing
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟学习用Delphi6+Mapobjects2开发一个程序,遇到不少问题:
问题1:
var
currectangle:Rectangle;
begin
currectangle:=Rectangle(CreateOleObject('Mapobjects2.Rectangle'));
currectangle := mapdisp.TrackRectangle;
end;
为什么这里最后一行会返回空(nil)?
问题2:
var
curPointoint;
curX,curYouble;
cccX,cccYouble;
begin
curPoint:= Point(CreateOleObject('Mapobjects2.Point'));
curPoint := MapDisp.ToMapPoint(x, Y);
curX := curPoint.x;
curY := curPoint.Y;
...
end;
这里的curPoint 返回为非nil,但为什么curPoint.x=0 呢?
期待各位大侠指教!
问题1:
var
currectangle:Rectangle;
begin
currectangle:=Rectangle(CreateOleObject('Mapobjects2.Rectangle'));
currectangle := mapdisp.TrackRectangle;
end;
为什么这里最后一行会返回空(nil)?
问题2:
var
curPointoint;
curX,curYouble;
cccX,cccYouble;
begin
curPoint:= Point(CreateOleObject('Mapobjects2.Point'));
curPoint := MapDisp.ToMapPoint(x, Y);
curX := curPoint.x;
curY := curPoint.Y;
...
end;
这里的curPoint 返回为非nil,但为什么curPoint.x=0 呢?
期待各位大侠指教!