Wenn du die Lina Components Library hast, dann gibt es da in der
uSysTools.pas
-
Unit auch die Funktionen:
Delphi-Quellcode:
function Count(Elements: TByteSet): Byte; overload;
function Count(Elements: TCharSet): Byte; overload;
Diese können zumindest Byte-und Charsets zählen. Ansonsten kannst du natürlich problemlos entweder eine
for
-
in
-Schleife oder aber eine Bitzählung benutzen, wie auch weiter oben schon vorgeschlagen wurde.