Zentimeter als Meter ausgeben -> Wie?

[torud]

Hallo Wissende,

es ist mir unendlich peinlich, aber ich struggle total damit vorhandene Zentimeter 183 als 1.83 darzustellen. Ich dachte, daß ich das ganz einfach mit dem Formatbefehl tun könnte, aber ich kriegs einfach nicht hin. Kann mir jemand bitte kurz unter die Arme greifen?

[DeddyH]

Delphi-Quellcode:

Format('%.2f', [cm / 100])

[baumina]

Falls Du unbedingt den DezimalPUNKT statt dem DezimalKOMMA möchtest, wäre das dann so:

Delphi-Quellcode:

var
  FormatSettings: TFormatSettings;
  cm : Real;

begin
 cm := 183;
 GetLocaleFormatSettings(LOCALE_USER_DEFAULT,FormatSettings);

 FormatSettings.DecimalSeparator := '.';
 Showmessage(Format('%.2f', [cm / 100], FormatSettings));
end;

EDIT: Ich weiß nicht seit wann es die überladene Funktion mit den FormatSettings gab. Gibt es die noch nicht, dann nimmt man die globale Variable DecimalSeparator.

[torud]

Perfekt

[Der schöne Günther]

Ich kann nicht riechen, wie der Namensraum in Delphi 7 dafür ist, aber der Kram ist

Delphi-Quellcode:

System.ConvUtils

scheint extra dafür gemacht worden zu sein:

System.ConvUtils.Convert

Artikel: Maßeinheiten umrechnen

[Headbucket]

Zitat:

Zitat von baumina (Beitrag 1240214)

EDIT: Ich weiß nicht seit wann es die überladene Funktion mit den FormatSettings gab. Gibt es die noch nicht, dann nimmt man die globale Variable DecimalSeparator.

Im Delphi 2007 gab es sie jedenfalls noch nicht. Hier muss man die globale Variable verwenden.
Dann wurden eine Zeit lang beide Varianten parallel geführt (mit der Erweiterung "deprecated").
In meinem Delphi XE5 gibt es die globale Variable nun gar nicht mehr.

Grüße

[Der schöne Günther]

Doch, die steckt in

Delphi-Quellcode:

System.SysUtils

.

[DeddyH]

Man kann aber auch komplett ganzzahlig rechnen, wenn man das möchte:

Delphi-Quellcode:

procedure TFormTest.ButtonCMClick(Sender: TObject);
const
  CM = 183;
  CM_PER_METER = 100;
begin
  ShowMessage(Format('%d.%d', [CM div CM_PER_METER, CM mod CM_PER_METER]));
end;

[himitsu]

Nicht die führende 0 vergessen :zwinker:
101 = 1.1
110 = 1.10

Delphi-Quellcode:

ShowMessage(Format('%d.%.2d', [CM div CM_PER_METER, CM mod CM_PER_METER]));

[DeddyH]

Japp, übersehen.