Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#4

Re: Inkompatible Typen AnsiChar und Char

  Alt 20. Apr 2010, 10:41
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;
$2B or not $2B
  Mit Zitat antworten Zitat