String buchstabenweise in array einlesen

[himitsu]

Zeichen zählen:

Delphi-Quellcode:

var 
  Anzahl: array[Char] of Integer;
  C: Char;
  i: Integer;

for C := Low(Char) to High(Char) do
  Antahl[C] := 0;

for i := 1 to Length(Wort) do
  Anzahl[Word[i]] := Anzahl[Word[i]] + 1;

Delphi-Quellcode:

var 
  Anzahl: array[Char] of Integer;
  C: Char;

FillChar(Anzahl, SizeOf(Anzahl), 0);
for C in Wort do Inc(Anzahl[C]);

nun steht zu jedem Char die Anzahl im Array drin, z.B. AnzahlVonGroßA := Anzahl['A'];