String auf bestimmtest Format (Geokoordinaten) prüfen und verbessern

[DeddyH]

Und nun?

[BBoy]

Danke für die Routine!
data.NSMinutes und Data.EWMinutes zeigt er aber nur die 1. stelle an, also eine 4 bzw 3. Wüsste nicht woran das liegt..

[DeddyH]

Die Routine war eigentlich gar nicht in der Form für den Produktiveinsatz gedacht. Hast Du mal debuggt? Betrifft das nur die Ausgabe, oder sind die Daten schon falsch?

[BBoy]

Die Routine passt aber fast genau für mich, daher habe ich mich dieser bemächtigt :)
Es waren ein paar kleine Tippfehler drin, die habe ich verbessert. aber warum der nur die 1. stelle anzeigt verstehe ich nicht.
data.NSMinutes enthält 41,766 es liegt am Format Befehl.

[DeddyH]

Und Du hast den Code per C&P eingefügt? Bei mir kommt nämlich beim ShowMessage

Zitat:

N 49° 41.766 E 008° 31.672

heraus.

[BBoy]

Ja C&P. Bei mir gibt es aber Settings := TFormatSettings.Create; und auch TFormatSettings.Create(LOCALE_USER_DEFAULT); nicht! Die Zeile habe ich weggelassen.

[DeddyH]

Ich habe hier kein Delphi 5 zur Verfügung. Was kommt denn hierbei heraus?

Delphi-Quellcode:

var
  OldSep: char;
begin
  OldSep := DecimalSeparator;
  try
    DecimalSeparator := '.';
    ShowMessage(Format('%.3f', [12.34567]));
  finally
    DecimalSeparator := OldSep;
  end;
end;

[BBoy]

Ergebnis=12.346

Kann es vlt. am , liegen bei data.NSMinutes (41,766) ?

Delphi 5? Habe Delphi 2009

[DeddyH]

Im Ausgangspost hast Du Delphi 5 angegeben. Ja, es wird wahrscheinlich am Komma liegen, deshalb ja der "Aufwand" mit den FormatSettings. Da musst Du mal in der Hilfe nachlesen, wie das unter Delphi 2009 genau funktioniert.

[edit] Neuer Versuch:

Delphi-Quellcode:

var
  Settings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Settings);
  Settings.DecimalSeparator := '.';
  ShowMessage(Format('%.3f', [12.34567], Settings));
end;

[/edit]

[BBoy]

Hier bekomme ich nur eine 1 als Ergebnis.
War das Ergebnis 12.346 aus dem letzten Test nicht ok?

Ich habe mal Data.EWMinutes := 41.278; direkt zugewiesen und mit Format ausgegeben. es wird immer noch nur die 1. stelle angezeigt. Ich komme nicht dahinter an was es liegt.

Edit:// wenn ich ShowMessage(Format('%.3f', [data.ewminutes])); mache dann funktioniert es!

Edit://
So geht es:

Delphi-Quellcode:

  DecimalSeparator := '.';
  showmessage(Format('%s %.2d%s %.3f %s %.3d%s %.3f', [
    Data.NSOrientation,
    Data.NSDegree,
    DEGREESIGN,
    Data.NSMinutes,
    Data.EWOrientation,
    Data.EWDegree,
    DEGREESIGN,
    Data.EWMinutes]));