Hallo,
habe gerade ein Problem und irgendwie ein Brett vorm Kopf - finde keine Lösung:
Delphi-Quellcode:
function TForm1.wert(zeichenkette : string) : Integer;
var
i, zaehler : Integer;
begin
for i := 1 to Length(zeichenkette) do
begin
case zeichenkette[i] of
'A..Z' : zaehler := zaehler + 1;
'a..z' : zaehler := zaehler + 1;
'0..9' : zaehler := zaehler + 2;
end;
end;
result := zaehler;
end;
Da spuckt Delphi doch glatt die Fehlermeldung aus:
Zitat:
[Pascal Fehler] uView.pas(68): E2010 Inkompatible Typen: 'Char' und 'string'
Woran liegts?
Danke!