AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zentimeter als Meter ausgeben -> Wie?

Ein Thema von torud · begonnen am 18. Dez 2013 · letzter Beitrag vom 18. Dez 2013
Antwort Antwort
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:29
Delphi-Version: 7
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?
Danke
Tom
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:30
Format('%.2f', [cm / 100])
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:47
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.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)

Geändert von baumina (18. Dez 2013 um 10:51 Uhr)
  Mit Zitat antworten Zitat
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#4

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:51
Perfekt
Danke
Tom
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.872 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:55
Ich kann nicht riechen, wie der Namensraum in Delphi 7 dafür ist, aber der Kram ist System.ConvUtils scheint extra dafür gemacht worden zu sein:

System.ConvUtils.Convert

Artikel: Maßeinheiten umrechnen
  Mit Zitat antworten Zitat
Headbucket

Registriert seit: 12. Dez 2013
Ort: Dresden
172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 10:57
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
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.872 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 11:02
Doch, die steckt in System.SysUtils .
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 11:03
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.180 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 11:57
Nicht die führende 0 vergessen
101 = 1.1
110 = 1.10

ShowMessage(Format('%d.%.2d', [CM div CM_PER_METER, CM mod CM_PER_METER]));
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Zentimeter als Meter ausgeben -> Wie?

  Alt 18. Dez 2013, 12:14
Japp, übersehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf