Inkompatible Typen AnsiChar und Char

[himitsu]

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;