Ich würde mir ein logisches Array (
Ascii Code für klein und Gro0buchstaben verwenden) anlegen und dann so hier hochzählen lassen:
Pseudocode:
Delphi-Quellcode:
for i := 1 to Length(Input) do
Array[Chr(Input[i])] := Array[Chr(Input[i])] + 1;
Ich hoffe dies hilft Deinem vorhaben.