string inkrementieren

[Cogito]

Hallo zusammen,

wahrscheinlich ist es nur eine Bagatelle aber ich suche nach einer Möglichkeit, eine Zahl, die in einem string gespeichert ist, zu inkrementieren.
Beispiel:

ZahlAlsString := '0470726';

die nächste Zahl sollte dann '0470727' sein. Das Problem hierbei für mich ist, wenn ich die Zahl als Integer umwandle verliere ich die führende Null. Da diese Zahl Bestandteil eines Barcodes sein soll muss die führende Null bleiben.
Wie mache ich sowas, gibt's eine fertige Funktion oder hat jemand eine selbst geschriebene für mich?

[mkinzler]

Dann musst du die 0 bei der Rückwandlung in einen string halt wieder anfügen ( Format)

[Neutral General]

merk dir wie viele Stellen der Barcode hatte. Dann umwandeln, erhöhen und dann mit Format und führenden 0en zurückwandeln.

Delphi-Quellcode:

function IncCode(Code: String): String;
var len: Integer;
    Val: Integer;
begin
  len := Length(Code);
  Val := StrToInt(Code);
  inc(Val);
  Result := Format('%.'+IntToStr(Len)+'d',[Val]);
end;

[Sir Rufo]

Zitat von Neutral General:

merk dir wie viele Stellen der Barcode hatte. Dann umwandeln, erhöhen und dann mit Format und führenden 0en zurückwandeln.

Delphi-Quellcode:

function IncCode(Code: String): String;
var len: Integer;
    Val: Integer;
begin
  len := Length(Code);
  Val := StrToInt(Code);
  inc(Val);
  Result := Format('%.'+IntToStr(Len)+'d',[Val]);
end;

Das geht doch so viel schicker:
Format( '%.*d', [ Len, Val ] ) .
SysUtils.Format

[ele]

Zitat von Sir Rufo:

Das geht doch so viel schicker:
Format( '%.*d', [ Len, Val ] ) .
SysUtils.Format

Da ist mal was, das ich noch nie gesehen habe. Ich kannte dieses Feature mit dem * noch nicht. Danke

[Coffeecoder]

Zitat von Sir Rufo;1104080
Das geht doch so viel schicker:
[DELPHI:

Format( '%.*d', [ Len, Val ] )[/DELPHI].
SysUtils.Format

Das erinnert mich an Reguläre Ausdrücke

[shmia]

Hier kommt die ultimative Funktion um einen String zu inkrementieren.
Dabei wird nicht auf Integer umgewandelt, sondern es wird alles nur durch reine Stringverarbeitung erledigt.
Das hat folgende Vorteile:
* kein Integer Überlauf möglich
* über eine Maske kann genau gesteuert werden, welche Positionen erhöht werden dürfen

Delphi-Quellcode:

{**************************************************************************
 * NAME:    IncrementWithMask
 * DESC:    erhöht eine Nummer (die als String vorliegt) um Eins
 *          Dabei darf "Number" an bestimmten Stellen auch Buchstaben enthalten
 *          "Mask" bestimmt, an welchen Positionen Ziffern oder Buchstaben erlaubt sind
 * Mask:  0 = Ziffern     (0..9)
 *        A = Buchstaben  (A..Z)
 *        Z = Ziffern & Buchstaben
 *        H = Hex-Ziffern  (0..9, A..F)
 *          = diese Stelle bleibt
 * PARAMS:  [-]
 * RESULT:  die erhöhte Nummer
 *************************************************************************}
function IncrementWithMask(const Number, Mask:string):string;

   function IncrementDigit(x:PChar; m:Char):Boolean;
   begin
      Result := False;
      case m of
         '0':
         begin
            x^ := Succ(x^);
            if x^ > '9' then
            begin
               x^ := '0';
               Result := True;
            end;
         end;
         'A':
         begin
            x^ := Succ(x^);
            if x^ > 'Z' then
            begin
               x^ := 'A';
               Result := True;
            end;
         end;
         'Z':
         begin
            if x^ = '9' then
               x^ := 'A'
            else if x^ = 'Z' then
            begin
               x^ := '0';
               Result := True;
            end
            else
               x^ := Succ(x^);
         end;

         'H':
         begin
            if x^ = '9' then
               x^ := 'A'
            else if x^ = 'F' then
            begin
               x^ := '0';
               Result := True;
            end
            else
               x^ := Succ(x^);
         end;

         ' ':
            Result := True;
      else
         raise Exception.CreateFmt('IncrementWithMask(%s, %s) - invalid Mask', [Number, Mask]);
      end;
   end;

var
   i : Integer;
begin
   Result := Number;
   for i := Length(Result) downto 1 do
   begin
      if not IncrementDigit(@result[i], Mask[i]) then
         Break;
   end;
end;

// Aufruf
neueNummer := IncrementWithMask(alteNummer, '00000000');

[Lannes]

so etwas ähnliches suche ich schon länger

Hast Du es noch etwas ultimativer irgendwo herumliegen?:

Delphi-Quellcode:

function IncrementWithMask(const Number, Mask:string, n: Integer):string;

//
alteNummer := 'Z024D00F';
neueNummer := IncrementWithMask(alteNummer, 'A000A00A', 10000);

[Coffeecoder]

Zitat von Cogito:

Wie mache ich sowas, gibt's eine fertige Funktion oder hat jemand eine selbst geschriebene für mich?

Ich habe eine Methode geschrieben um eine Zahl mit führende Nullen zu ergänzen.

Zitat von mkinzler:

Dann musst du die 0 bei der Rückwandlung in einen string halt wieder anfügen ( Format)

Das geht auch.
Würde dein String in ein Integer casten und dann inkrementieren und dann zurückwandeln.
Schreib mir ne PM dann schick ich dir meine Methode. Ausser jmd will die hier sehen?!

[mkinzler]

Die wäre u.U. auch für andere interessant, obwohl Format() das ja auch kann