« 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 |
||
| 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 du 6 janvier 2014 à 15:43
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 |
| iLat | 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