Anzahl der Elemente in einem Set ermitteln?

[Rudy Velthuis]

Zitat von DieDolly:

Wie ermittelt man am besten die Größe eines Sets oder die Anzahl an Elementen in einem Set?
Es geht um ein Set, welches maximal 7 Elemente aufnehmen kann. Als Bytewert ergibt das am Ende 127. Ich könnte gegen diese 127 prüfen aber es muss doch eine Möglichkeit geben zu ermitteln, wieviele Elemente in diesem Set sind oder nicht?

Wenn es wirklich schnell sein muss, dann kann man eine Tabelle anlegen mit 256 Einträge, und zwar jeweils die Anzahl an Bits des betreffenden Bytes. Dann nur noch eine Schleife über den Set, der die Bits pro Byte addiert. Oder 16 Einträge, mit der Anzahl bits für ein Nibble (halbes Byte). Egal wie, aber mit einer Lookup-Tabelle geht's schneller.

Schau mal hier (Cardinality of a Set, aus den alten Borland-Newsgroups): https://groups.google.com/forum/#!to...al/rh52jMoOOBI

Für ein bestimmtes Set von maximal 7 Werten würde ich eine 128-Byte Tabelle anlegen und dann:

Code:

    procedure Cardinality(ASet: DerSetTyp): Integer;
    const 
      DieTabelle: array[0..127] of Byte =
      (
          0,  1,  1,  2,  1,  2,  2,  3,  1,  2,  2,  3,  2,  3,  3,  4, //  0..15
          1,  2,  2,  3,  2,  3,  3,  4,  2,  3,  3,  4,  3,  4,  4,  5, // 16..31
          1,  2,  2,  3,  2,  3,  3,  4,  2,  3,  3,  4,  3,  4,  4,  5, // 32..47
          
          // usw...

      );
    begin
      Result := DieTabelle[Byte(ASet)];
    end;

Mehr brauchst du dann nicht.