Hallo,
ich bin am verzeifeln.
will eigentlich nur einen Wert erhöhen, bekomme aber immer Probleme wenn der letzte Char eine 9 oder ein z ist...
Ich poste mal meine function, vielleicht findet einer den Fehler gleich
Delphi-Quellcode:
function Zaehlen(s:
String):
String;
var C:Char;
Zahl:
String;
i:integer;
begin
if s<>'
'
then begin
i:=Length(s);
c:=S[i];
//Wenn noch ein hinzugezählt werden kann
if c
in ['
0'..'
8','
A'..'
Y','
a'..'
y']
then begin
inc(c);
Zahl:=C;
result:=copy(S,1,i-1)+ C;
end;
//Wenn Z oder 0
while c
in ['
9']
do begin
if c
in ['
9']
then
begin
Zahl:=Zahl+'
0';
end;
dec(i);
c:=S[i];
result:=copy(s,1,i)+Zahl;
end;
while c
in ['
Z','
z']
do begin
if c
in ['
Z']
then begin
zahl:=Zahl+'
A';
end;
if c
in ['
z']
then begin
zahl:=Zahl+'
a';
end;
dec(i);
c:=S[i];
result:=copy(s,1,i)+Zahl;
end;
end;
end;