Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Buchstaben: Array[char] of Integer;
tmp: String;
i: Integer;
begin
FillChar(Buchstaben,sizeof(Buchstaben),0);
tmp := LowerCase(Memo1.Text);
for i:= 1 to Length(tmp) do
inc(Buchstaben[tmp[i]]);
end;
Wieso denn nicht? Über die Zeichen wird sowieso iteriert, es entstehen so keine Zugriffsverletzungen und ein komplettes Histogramm hat man am Ende auch noch...