Zitat von
Angel4585:
Eine Änderung bei "s" ist bisher nicht vorgesehen,
Der Witz dabei ist, daß "s" nicht verwendet wird und somit die letzen Zeilen "sinnlos" ist.
Heißt, daß diese Funktion genau das selbe Ergebnis liefert.
Delphi-Quellcode:
procedure GetNextNummer(
var sNummer: AnsiString);
var i: Integer;
begin
i:=Length(sNummer);
while i>0
do
begin
case sNummer[i]
of
'
Z':
sNummer[i]:='
0';
'
9':
begin
sNummer[i]:='
A';
break;
end;
else
begin
sNummer[i]:=AnsiChar(Ord(sNumber[i]) + 1);
break;
end;
end;
// case
dec(i);
end;
// for
end;