Buchstabenhäufigkeit

[DeddyH]

Wieso nicht? Mal in Langform:

Delphi-Quellcode:

procedure TCharCounter.ReadString(const s: AnsiString);
var
  i: Cardinal;
  c: AnsiChar;
begin
  FTotal := 0;
  for i := Low(s) to High(s) do
    begin
      c := s[i];
      FCounts[c] := FCounts[c] + 1;
      inc(FTotal);
    end;
end;