Delphi: Führende Nullen zu einer Zahl hinzufügen

Manchmal möchte man eine Zahl mit führenden Nullen mittels Delphi oder Lazarus darstellen, zum Beispiel wenn die Zahlen irgendwann zweistellig werden und wir direkt bei 01, 02 und so weiter beginnen möchten.

Zum Glück geben uns Delphi und Lazarus eine einfache Funktion zur Hand:

str := Format('%.*d', [laenge, zahl]);
str := Format('%.*d', [3, 7]);
// str ist '007'

Die beiden benötigten Parameter sind die Anzahl der Stellen, die wir hinterher haben möchten (laenge) und die Integer Zahl, die wir umschreiben möchten. Die Rückgabe ist dann ein String.

In der zweiten Zeile seht ihr ein Beispiel: Wenn wir die Funktion mit den Parametern 3 und 7 aufrufen, bekommen wir '007'.