Habe folgende Funktion
Delphi-Quellcode:
function ErhoeheBuchstabe (sNummer : String) : String;
begin
if Length (sNummer) = 1 then
begin
if sNummer = 'Z' then
begin
sNummer := 'AA';
end else begin
sNummer := Chr(Ord(sNummer[1]) + 1);
end;
end;
if Length (sNummer) = 2 then
begin
if sNummer[2] = 'Z' then
begin
if sNummer[1] = 'Z' then
begin
sNummer := 'AAA';
end else begin
sNummer := Chr(Ord(sNummer[1]) + 1) + 'A';
end;
end else begin
sNummer[2] := Chr(Ord(sNummer[2]) + 1);
end;
end;
ErhoeheBuchstabe := sNummer;
end;
die über "Buchstaben" hochzählen soll.
aus A wird B
aus S wird T
aus Z wird AA
aus AS wird AT
aus AZ wird BA
aus YT wird YU
aus ZZ wird AAA
Geht das allgemeiner und elleganter ?