Zählen mit dem Alphabet

[idontwantaname]

Ja, und zwar durch eine Rekursion

Delphi-Quellcode:

function ErhoeheBuchstabe(const Str: String): String;
var
  Index: Integer;
  Temp: String;
begin
  Temp := UpperCase(Str);
  Index := Length(Temp);
  if(Succ(Ord(Temp[Index])) <= Ord('Z')) then
  begin
    Temp[Index] := Chr(Succ(Ord(Temp[Index])));
    Result := Temp;
  end else
    if(Index > 1) then
      Result := ErhoeheBuchstabe(Copy(Temp, 1, Index-1)) + 'A'
    else
      Result := 'AA';
end;