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

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

[DeddyH]

Und wenn Du die "Delphi 5"-Variante nimmst und den Settings-Parameter beim Format-Befehl weglässt?

[BBoy]

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

So geht es. Danke für deine Geduld!

Leider macht er aus:
N 49° 41.66 E 8° 31.672
N 49° 41.660 E 8° 31.672
richtig wäre:
N 49° 41.066 E 8° 31.672
Gibt es da auch möglichkeiten?

[DeddyH]

Ich wüsste nicht, da ja die eingehende Zahl faktisch falsch ist, und zwar ihr Wert und nicht nur ihre Darstellung. Es sei denn, Du kennst Kriterien, anhand derer Du das erkennen könntest, dann müsstest Du sie halt korrigieren.

[BBoy]

ok, dann werde ich einfach die anzahl der ziffern prüfen und wenn <3 dann füge ich eine 0 voran.