Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Immer 2 Vorkommastellen (https://www.delphipraxis.net/159253-immer-2-vorkommastellen.html)

Dunkelbunt27 20. Mär 2011 15:47

Immer 2 Vorkommastellen
 
Hallo Delphi-PRAXIS,

ich suche eine Möglichkeit meinen Integer-Wert als String auszugeben und dabei genau 2 Vorkommastelle zu haben.
Delphi-Quellcode:
Sekunde := 00;
Label1.Caption := IntToStr(Sekunde);
=> Das Label heißt "0", soll aber "00" heißen

FG Dunkelbunt

mkinzler 20. Mär 2011 15:52

AW: Immer 2 Vorkommastellen
 
Z.B. mit Format
Delphi-Quellcode:
Label1.Caption := Format('%.2d', Sekunde);

haentschman 20. Mär 2011 15:55

AW: Immer 2 Vorkommastellen
 
und zur Erklärung die Übersicht der Format "Befehle"
http://docwiki.embarcadero.com/VCL/de/SysUtils.Format

Dunkelbunt27 20. Mär 2011 15:57

AW: Immer 2 Vorkommastellen
 
Danke,
ich hatte das mit Format noch nicht verstanden und hab es mit %2 oder $d versucht.

FG Dunkelbunt

BUG 20. Mär 2011 19:24

AW: Immer 2 Vorkommastellen
 
Nur um es nochmal zu erwähnen:
Delphi-Quellcode:
Sekunde := 00;
macht genau das gleiche wie
Delphi-Quellcode:
Sekunde := 0;
, da es sich um Zahlen handelt.

Integer/Ganzzahlen: 0 = 00 = 000 = ...
String/Wort: '0' <> '00' <> '000' <> ...

mkinzler 20. Mär 2011 19:27

AW: Immer 2 Vorkommastellen
 
Es ging ihm aber um die Anzeige ...

BUG 20. Mär 2011 19:36

AW: Immer 2 Vorkommastellen
 
Jup, es stehen in seinem Beispiel-Code aber sinnloserweise 2 Nullen und darauf hinzuweisen kann ja nicht schaden :stupid:

Reinhard Kern 21. Mär 2011 13:50

AW: Immer 2 Vorkommastellen
 
Andere (triviale) Möglichkeit:

Delphi-Quellcode:
Sekunde := 00;

if Sekunde < 10 then Label1.Caption := '0' + IntToStr(Sekunde)
  else Label1.Caption := IntToStr(Sekunde);

Label1.Caption := IntToStr(Sekunde);
if Sekunde < 10 then Label1.Caption := '0' + Label1.Caption;
Für negative Zeiten geht das allerdings nicht.

Gruss Reinhard


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz