Buchstaben zählen

[Klaus01]

.. wenn hier schon jeder mit Code um sich wirft:

Meine Version:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 zArray : Array['a'..'z'] of Byte;
 c : Char;
 s : String;
 sOut : String;
 i : Integer;
begin
  // init

  for c:= 'a' to 'z' do
    zArray[c] := 0;
  s:= 'ZZZZccddaaaaabaumeinzweidrei';
  for i:=1 to length(s) do
    for c:= 'a' to 'z' do
      begin
        if lowerCase(s[i]) = c then
          inc(zArray[c]);
      end;

  // Ausgabe
  sOut := '';
  for c := 'a' to 'z' do
    begin
      i:=0;
      while i < zArray[c] do
        begin
          sOut:=sOut+c;
          inc(i);
        end;
    end;

  showMessage(sOut);
end;

Grüße
Klaus