Anzahl der Elemente in einem Mengentyp

[Steve]

Delphi-Quellcode:

FUNCTION GetSetCount(CONST aValue : TWerte) : Word;
// Gibt die Anzahl der enthaltenen TWert-Werte in aValue zurück
// Maximalwert: 256 --> Word als Rückgabe-Typ
VAR
  iAnzahl,
  iIndex  : Word;
begin
  iAnzahl := 0;
  FOR iIndex:=Ord(Low(TWert)) TO Ord(High(TWert)) DO
  BEGIN
    IF TWert(iIndex) IN aValue THEN Inc(iAnzahl);
  END;
  result := iAnzahl;
end;


{ *** Beispiel für Aufruf: *** }
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetSetCount([wWert2,wWert3])));
end;

Funzt halt immer nur für den bestimmten Typ