Haversine (Geolocation)
De Wiki1000
(Différences entre les versions)
| Ligne 11 : | Ligne 11 : | ||
|La latitude de la position | |La latitude de la position | ||
|- | |- | ||
| − | | | + | |iLon |
|La longitude de la position | |La longitude de la position | ||
|} | |} | ||
Version actuelle en date du 15 octobre 2014 à 12:07
function haversine(iLat,iLong:Double):Double;
Cette fonction retourne la distance entre la position et une coordonnée latitude,longitude
| Result | La valeur de la fonction haversine (km) |
| iLat | La latitude de la position |
| iLon | La longitude de la position |
Exemple
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;
Voir aussi
| Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |
