Haversine (Geolocation) - Historique des versions

Syfre le 15 octobre 2014 à 10:07

2014-10-15T10:07:51Z

Syfre le 6 janvier 2014 à 15:43

2014-01-06T15:43:57Z

Syfre : Page créée avec « function haversine(iLat,iLong:Double):Double; Cette fonction retourne la distance entre la position et une coordonnée latitude,longitude ... »

2013-12-24T08:27:00Z

Page créée avec « <source lang='delphi'>function haversine(iLat,iLong:Double):Double;</source> Cette fonction retourne la distance entre la position et une coordonnée latitude,longitude ... »

Nouvelle page

<source lang='delphi'>function haversine(iLat,iLong:Double):Double;</source>

Cette fonction retourne la distance entre la position et une coordonnée latitude,longitude

{|class="wikitable"
|-
|Result
|La valeur de la fonction haversine (km)
|-
|iLat
|La latitude de la position
|-
|iLat
|La longitude de la position
|}

Exemple
<source lang='delphi'>
Type
WFAddress = Class(TdbObject)
public
Address1: string;
Address2: string;
City: string;
Country: string;
Geoloc: TGeolocation;
State: string;
end;

procedure showDistance;
var sel:TSelector; inst:WFAddress; dd:double;
begin
sel := WFAddress.CreateSelector('','',true,[]);
foreach inst in sel.AsCursor do
begin
dd := inst.Geoloc.haversine(38.897147,-77.043934);
showMessage(Format('%s %0.4f',[inst.Address1,dd]));
end;
end;
</source>

Voir aussi
* [[haversine (rtl)|La fonction haversine de la rtl]]

{{Footer|Geolocation (type)}}
[[category:TGeolocation]]

@@ Ligne 11 : / Ligne 11 : @@
 |La latitude de la position
 |-
-|iLat
+|iLon
 |La longitude de la position
 |}

@@ Ligne 42 : / Ligne 42 : @@
 Voir aussi
 * [[haversine (rtl)|La fonction haversine de la rtl]]
 {{Footer|Geolocation (type)}}
 [[category:TGeolocation]]