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]));