1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  i = länge vom string

  while i > 0 do
    begin
      erhöhe den ordinalwert von string[i] um eins.

      { wenn es vorher 9 (57) war, dann überlauf. wenn vorher Z (90) war,
        dann überlauf. wenn es vorher z (122) war, dann überlauf.
      
      wenn überlauf, dann
        Begin
           buchstabe string[i] wieder um eins verringern
           dec(i);
        End
          Else
       abbrechen, erfolgreich erhöht. (Break)
    end                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

function TForm1.Wert_erhoehen(Feld,Tabelle:String):String;
var Laenge,i,z : Integer;
    Next : Boolean;
    Vorn,Hinten,Wert:String;
begin
    z := 0;
    Next := false;
    Laenge:=Length(Wert);
    while Laenge > 0 do
    begin
        i:= ord(Wert[Laenge]);
        if i = 57 then i:= 65 else
        inc(i);
        next:=false;
        if i > 90 then
        begin
            i:=48;
            next := true;
        end;
        if next = true then
        begin
            vorn := copy(Wert,1,Laenge-1);
            hinten := copy(Wert,Laenge+1,length(wert));
            //insert(chr(i),Wert,Laenge);
            Wert:=vorn+chr(i)+hinten;
            dec(Laenge);
        end else
        begin
            vorn := copy(Wert,1,Laenge-1);
            hinten := copy(Wert,Laenge+1,length(wert));
            //insert(chr(i),Wert,Laenge);
            result:=vorn+chr(i)+hinten;
            break;
        end;
    end;
    if Laenge = 0 then result:='0'+Wert;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

function TForm1.Wert_erhoehen(Feld,Tabelle:String):String; 
var Laenge,i,z : Integer; 
    Next : Boolean; 
    Vorn,Hinten,Wert:String; 
begin 
    z := 0; 
    Next := false; 
    Laenge:=Length(Wert);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Procedure IncrementIndex(Var Index: String);
Var i: Integer;
    Done: Boolean;
Begin
  i := Length(Index);
  Repeat
    Done := True;
    Case Index[i] of
      #57: Index[i] := #65;
      #90: Index[i] := #97;
      #122: Begin
              Index[i] := #48;
              Dec(i);
              Done := False;
              If i = 0 then
                Begin
                  ShowMessage('bei zzzzzzzz angekommen.');
                  Exit;
                End;
            End;
         Else
           Index[i] := Chr(Ord(Index[i]) + 1);
    End;
  Until Done;
End; // getestet, funzt