Passwort auf Sicherheit prüfen

[Gast]

Jo mei ... erst schreibste, des dir det jefaellt und nu is och wieda net recht.

Also ... erstell dir ein arr:Array[0..$FF] of Integer dann:

Delphi-Quellcode:

ZeroMemory(@arr, sizeof(arr));
for i:=1 to length(s) do
  inc(arr[Byte(s[i])]);

Dann haste fuer jedes Zeichen drinzustehen, wie oft es vorkommt ...