« Haversine (Geolocation) » : différence 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 ... ») |
Aucun résumé des modifications |
||
| (Une version intermédiaire par le même utilisateur non affiché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]] | ||
Dernière version du 15 octobre 2014 à 10:07
<source lang='delphi'>function haversine(iLat,iLong:Double):Double;</source>
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 <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
{{#if:Geolocation (type)|
{{#if:Geolocation (type)|— Geolocation (type) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}