Programm, das Zeichen in einem Wort zählt - BinarySearchTree

[Popov]

Ich weiß nicht ob du was spezielles suchst, aber auf die Schnelle Just4Fun:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  x = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜß0123456789';
var
  s: String;
  i, k: Integer;
begin
  s := Memo1.Lines.Text;
  Memo2.Clear;

  for i := 1 to Length(x) do
  begin
    k := 0;
    while Pos(x[i], s) > 0 do
    begin
      s[Pos(x[i], s)] := '~';
      Inc(k);
    end;
    if k > 0 then //wenn auch fehlende Zeichen angezeigt werden sollen, dann die Zeile weg
      Memo2.Lines.Add(x[i] + ' = ' + IntToStr(k));
  end;
end;