« 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
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