Haversine (Geolocation)
De Wiki1000
(Différences entre les versions)
(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 ... ») |
|||
| (Une révision intermédiaire par un utilisateur est masquée) | |||
| 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 | ||
|} | |} | ||
| Ligne 42 : | Ligne 42 : | ||
Voir aussi | Voir aussi | ||
* [[haversine (rtl)|La fonction haversine de la rtl]] | * [[haversine (rtl)|La fonction haversine de la rtl]] | ||
| + | * [[Haversine_(exp)|La fonction haversine dans une expression]] | ||
{{Footer|Geolocation (type)}} | {{Footer|Geolocation (type)}} | ||
[[category:TGeolocation]] | [[category:TGeolocation]] | ||
Version actuelle en date du 15 octobre 2014 à 11: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
