GEO - Functions - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

GEO - Functions

Ein Thema von robinWie · begonnen am 19. Apr 2009 · letzter Beitrag vom 14. Dez 2018

Vorheriger Beitrag

Nächster Beitrag

wurzelzwerg

Registriert seit: 19. Jun 2011
Ort: Ilmenau
111 Beiträge

Delphi XE5 Enterprise

#10

AW: GEO - Functions

2. Aug 2014, 11:12

DecimalLon, DecimalLat haben einen Fehler.
Man muss bei W und S das Ergebnis negieren. So wie das jetzt ist wird nur der Anfang(Grad) negiert.

8°28''58.3"W ergibt jetzt -7,48286151885986. Das sollte aber -8,48286151885986 sein.

markieren

Delphi-Quellcode:

			 
//if (Pos('°W', Longitude) > 0) or (Longitude[length(Longitude)] = 'W') then

//   Longitude := '-' + Longitude;

....

// erst am Ende prüfen

if (Pos('°W', Longitude) > 0) or (Longitude[length(Longitude)] = 'W') then

  Result := -Result;