Die wäre u.U. auch für andere interessant, obwohl Format() das ja auch kann
OK
Ich poste die dann wenn ich an meinem Rechner sitze.
Hey,
Mir ist klar, dass mittlerweile sehr viele Möglichkeiten gepostet worden sind.
Ich hab ein wenig nach meiner Funktion gesucht und habe sie endlich gefunden.
Hier mal meinen Vorschlag:
Delphi-Quellcode:
function erweiternFuehrendeNull(laenge : integer; zahl : string) : string ;
var
temp : string;
begin
temp := zahl;
while (length(temp) < laenge) do
begin
temp := '0' + temp;
end;
result := temp;
end;