Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Zahlen mit vorhergehender Null anzeigen


supersass1 - Di 19.08.08 13:37
Titel: Zahlen mit vorhergehender Null anzeigen
Hallo,

ich möchte eine Zahl enzeigen, die grundsätzlich aus 4 Zeichen besteht.
Demnach ist folgendes erlaubt, und muss erlaubt sein: 0001, 0002, ...

Doch wie programmiert man dies?
Ich habe eben schon versucht, etwasm it einer for-Schleife hinzukriegen, aber erfolglos.

gibt es einen Befehl, der eine Zahl immer auf 4 Zeichen anzeigt?

viele liebe Grüße
supersass1 :)


iKilledKenny - Di 19.08.08 13:40

Du musst die Länge des Strings in einer while-Schleife prüfen und Nullen voran stellen.


Delphi-Quelltext
1:
2:
while (Length (s) < 4) do
  s := '0' + s;


Wenn es einzig zur Anzeige sein soll, dann evtl. mal den Format-Befehl unter die Lupe nehmen.


supersass1 - Di 19.08.08 13:43

alles klar, denke dir :)


K.S.M. - Di 19.08.08 13:47

Wenn du nur gerade Zahlen verwendest kannst du auch

Delphi-Quelltext
1:
Result := Format('%.4d', [Zahl]);                    

verwednen, wobei die 4 angibt wie viele Stellen es insgesamt sein sollen.


baka0815 - Di 19.08.08 15:55

Alternativ auch:

Delphi-Quelltext
1:
FormatFloat('0000', DeineZahl);                    

Heißt zwar FormatFloat, funktioniert aber auch mit ganzzahligen Werten (Integer).