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

[peschai]

Hallo

Noch ein kleiner tip, verwende wenn möglich "const" bei Zeichenketten bei der Parameterübergabe von Funktionen. Das spart eine kopie des strings auf dem Stack ein ... (besser für performance und speicherverbrauch). Desweiteren hast du deine Variable "Zaehler" nicht initialisiert, aber besser noch verwende gleich "result" anstelle "zaehler" ...

Vorschlag ...

Delphi-Quellcode:

function TForm1.wert(const zeichenkette : string) : Integer; 
var 
  i : Integer; 
begin 
  result := 0;
  for i := 1 to Length(zeichenkette) do 
  begin 
    case zeichenkette[i] of 
    'A'..'Z' : result := result + 1; 
    'a'..'z' : result := result + 1; 
    '0'..'9' : result := result + 2; 
    end; 
  end; 
end;