hallo,
ich würde das Problem mit einer Schleife lösen. Du ermittelt das erste Zeichen deiner Zeichenkette, erhöhst deinen Zähler um eins und entfernst anschliessend alle Vorkommen des ersten Zeichen aus deiner Zeichenkette. Dies wiederholst du solange bis die Zeichenkette leer ist.
Delphi-Quellcode:
zaehler:=0;
While zeichenkette<>'' do begin
h:=midstr(zeichenkette,1,1);
inc(zaehler);
zeichenkette:=stringreplace(zeichenkette,h,'', [rfReplaceAll, rfIgnoreCase]);
end;
Quellcode Freihand programmiert, nicht getestet.
mfg