Buchstabenhäufigkeit

[DeddyH]

Die Anzahl steht je Zeichen im Array.

[edit] Nachtrag: Das Nullen des Arrays beim erneuten Einlesen habe ich noch vergessen.

Delphi-Quellcode:

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