Problem mit Zählen von Buchstaben

[Neutral General]

Hi,

Was ich auch empfehlen kann ist eventuell ein Array[Char] of Integer. Oder vielleicht noch beser sowas: (Ideal wenns nicht auf Groß- und Kleinschreibung ankommt...

Delphi-Quellcode:

type TAlphabet = 'a'..'z';

procedure TForm1.Button1Click(Sender: TObject);
var Buchstaben: Array[TAlphabet] of Integer;
    tmp: String;
    i: Integer;
begin
  FillChar(Buchstaben,26*SizeOf(Integer),0);
  tmp := LowerCase(Memo1.Text);
  for i:= 1 to Length(tmp) do
    inc(Buchstaben[tmp[i]]);
  ShowMessage(IntToStr(Buchstaben['m'])); // Beispiel
end;

Wobei das auch keine Ideale Lösung ist.. auf Buchstaben[' '] zuzugreifen z.B. ist sicher auch nicht das feinst..Da müsste man halt noch ein bisschen dran feilen.