E sada ima jedan problem, kada hocu da prikazem distancu t.e da je izracunam program "pukne" javi sledecu gresku
a evo kod-a
Code:
procedure TForm1.Button1Click(Sender: TObject);
var objApp : MapPoint_TLB.Application;
var objMap : MapPoint_TLB.Map;
var objRoute : MapPoint_TLB.Route;
begin
objMap := objApp.ActiveMap;
objRoute := objMap.ActiveRoute;
objApp.Visible :=TRUE;
objApp.UserControl := TRUE;
objRoute.Waypoints.Add(objMap.FindPushpin('Seattle, WA'),'1');
objRoute.Waypoints.Add(objMap.FindPushpin('Redmond, WA'),'2');
objRoute.Calculate;
ShowMessage(FloatToStr(objRoute.Distance));
end;
Kude tumbe i tri bandere