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;