Delphi 计算两个坐标点之间的距离（高德地图）

Delphi 计算两个坐标点之间的距离（高德地图）
参考这个文章，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 * PI / 180.0;
 var a := abs(radLatitude1 - radLatitude2);
 var b := abs(startLongitude * PI / 180.0 - endLongitude * PI / 180.0);
 var s := 2 * arcsin(sqrt(power(sin(a / 2), 2) + cos(radLatitude1) * cos(radLatitude2) * power(sin(b / 2), 2)));
     s := s * EARTH_RADIUS;
     result :=round(round(s * 10000) / 10000); // 返回距离单位是米
end;

向作者表示感谢！

来源：https://www.cnblogs.com/kinglandsoft/p/16516295.html