Delphi-Quellcode:
...
Inc(Result, Ord(s[n] = c);
...
Ein IF und das Ganze ist 4x schneller (String mit zufälligen Großbuchstaben füllen, nach 'A' suchen).
Delphi-Quellcode:
Function IFCount (Const s : String; c : Char) : Integer;
Var
i : Integer;
Begin
Result := 0;
For i:=1 to length(s) do
If s[i]=c then
inc (Result);
End;