« Haversine (exp) » : différence entre les versions
(Page créée avec « <source lang='delphi'>function haversine(geoloc:TGeolocation; lat,long:Double):Double;</source> Retourne la distance entre l'attribut Geolocation et un jeu de coordonnée... ») |
Aucun résumé des modifications |
||
| Ligne 4 : | Ligne 4 : | ||
Exemple : | Exemple : | ||
'''Utilisation d'arguments''' | |||
<source lang="delphi"> | <source lang="delphi"> | ||
//Procedure TestGeolocation; | |||
var sel:TSelector; S:string; stag:string; inst:WFAddress; dd:double; lat,long:double; | |||
begin | |||
// looks for address in 100 meters range from a point. | |||
// | |||
lat := 38.897147; | |||
long := -77.043934; | |||
sel := WFAddress.CreateSelector('haversine(geoloc,%2,%3) < %1','',true,[0.1,lat,long]); | |||
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> | |||
'''Utilisation de constantes''' | |||
<source lang="delphi"> | |||
//Procedure TestGeolocation; | |||
var sel:TSelector; S:string; stag:string; inst:WFAddress; dd:double; | |||
begin | |||
// looks for address in 100 meters range from a point. | |||
// | |||
sel := WFAddress.CreateSelector('haversine(geoloc,38.897147,-77.043934) < %1','',true,[0.1]); | |||
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> | </source> | ||
Version du 24 décembre 2013 à 10:45
<source lang='delphi'>function haversine(geoloc:TGeolocation; lat,long:Double):Double;</source>
Retourne la distance entre l'attribut Geolocation et un jeu de coordonnées.
Exemple :
Utilisation d'arguments
<source lang="delphi"> //Procedure TestGeolocation; var sel:TSelector; S:string; stag:string; inst:WFAddress; dd:double; lat,long:double; begin
// looks for address in 100 meters range from a point.
//
lat := 38.897147;
long := -77.043934;
sel := WFAddress.CreateSelector('haversine(geoloc,%2,%3) < %1',,true,[0.1,lat,long]);
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>
Utilisation de constantes
<source lang="delphi"> //Procedure TestGeolocation; var sel:TSelector; S:string; stag:string; inst:WFAddress; dd:double; begin
// looks for address in 100 meters range from a point.
//
sel := WFAddress.CreateSelector('haversine(geoloc,38.897147,-77.043934) < %1',,true,[0.1]);
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:Expressions objets (code)|
{{#if:Expressions objets (code)|— Expressions objets (code) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}