参考这个文章，Java写的，改写成Delphi版本： function MeasuerDistance(const startLongitude,startLatitude,endLongitude,endLatitude:Double):Integer; begin const Earth_RAdius=6378137; var radLatitude1 := startLatitude * PI / 180.0; var radLatitude2 := endLatitude
专注分享技术，共同学习，共同进步。侵权联系[81616952@qq.com]
Copyright (C)ICode9.com, All Rights Reserved.
ICode9版权所有
