Zeichen zählen

[Wormid]

Diese Version hier zählt alle Buchstaben von a bis z in dem String S.
Man könnte das ganze vielleicht auch mit Sets (Mengentypen) lösen. Das wäre vor allem dann sinnvoll, wenn noch Umlaute und Sonderzeichen mit abgeprüft werden sollen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
    i: Integer;
    C: Array['a'..'z'] of Integer;
    X: Char;
begin
  S := LowerCase('Dies hier ist mein Text');
  ZeroMemory(@C, SizeOf(C));  // Array mit Nullen füllen

  for i := 1 to Length(S) do Inc(C[S[i]]);

  // Ausgabe zum testen...
  for X := Low(C) to High(C) do
    if C[X] > 0 then
      Memo1.Lines.Add(X + ': ' + IntTostr(C[X]));
end;

Im Array "C" stehen dann die Anzahl der Buchstaben drin. (z.B.: Memo1.Lines.Add(IntToStr(C['a']) gibt die Anzahl der "a"s aus)

Gruß

Wormid

[Edit: Matzes Einwand war korrekt... Fehler behoben]