Hallo,
ich bekomme in folgendem Codeausschnitt an der markierten Stelle die Compilermeldung "Inkompatible Typen AnsiChar und Char"
Delphi-Quellcode:
procedure GetNextNummer(
var sNummer: AnsiString);
var xLetter: Byte;
i: Integer;
s: AnsiString;
begin
i:=Length(sNummer);
while i>0
do
begin
xLetter:=Ord(sNummer[i]);
case xLetter
of
57:
begin
sNummer[i]:=Chr(65);
//Keine Meldung
break;
end;
90:sNummer[i]:=Chr(48);
//Keine Meldung
else
begin
sNummer[i]:=Chr(xLetter);
// Hier kommt die Meldung
break;
end;
end;
// case
dec(i);
end;
// for
s:='
';
i:=0;
while i<Length(sNummer)
do
begin
insert('
0',s,1);
inc(i);
end;
end;
sNummer[i] sollte doch en AnsiChar verlangen und Chr() liefert auch AnsiChar.
xLetter ist vom Typ Byte, sollte also auch locker passen.
Wenn ich anstatt xLetter zB 230 nehm funktionierts muss also was mit xLetter zu tun haben.
Aber wo genau ist das Problem? Ich seh es nicht
