Danke für die links.
Allerdings werde ich das nun mit TLatLngBounds verwirklichen. Denn da gibt es ja die möglichkeit zu prüfen ob eine koordinate innerhalb des rechtecks ist. Allerdings wird bei mir immer False zurückgegeben. Kann mir bitte jemand sagen was ich falsch mache??
Delphi-Quellcode:
Procedure Button1Click(Sender: TObject);
var
latlonb : TLatLngBounds;
SWBound: TLatLng;
begin
latlonb := new(Google.Maps.LatLngBounds(New(Google.Maps.LatLng(49.6521,8.4969)),New(Google.Maps.LatLng(49.6439,8.5113))));
with Script do begin
swbound := new(Google.Maps.LatLng(49.648883,8.502467));
showmessage(swbound.ToString+' '+latlonb.ToString); // nur zum testen für mich um zu sehen das alle koordinaten korrekt sind
if latlonb.Contains(swbound) then
Showmessage(datamodule1.TourTable1gccode.AsString); // ebenfalls nur zum testen ob es funktioniert
end;
momentan habe ich es mit dieser Abfrage gelöst, kann man die noch etwas optimieren?
Delphi-Quellcode:
if (swbound.Lat >= latlonb.GetNorthEast.Lat) and (swbound.lng <= latlonb.GetNorthEast.lng) and
(swbound.Lat <= latlonb.GetSouthWest.Lat) and (swbound.lng >= latlonb.GetSouthWest.lng) then
Showmessage('Koordinate im Rechteck');