Fehler: Inkompatible Typen - 'Char' und 'String'?

[bernau]

Man kann's auch so schreiben

Delphi-Quellcode:

var
  i : Integer;
begin
  result := 0;
  for i := 1 to Length(zeichenkette) do
    if zeichenkette[i] in ['A'..'Z','a'..'z','0'..'9'] then
       result := result + 1;
end;

Gerd