string inkrementieren

[Coffeecoder]

Zitat von Coffeecoder:

Zitat von mkinzler:

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;