Set of - Überprüfen welche Werte enthalten sind

[ste_ett]

Um eine Schnittmenge zweier Mengen (Sets) zu ermitteln kann man Folgendes machen.

Delphi-Quellcode:

type
  TMyType = (MyA, MyB, MyC);
  TMySet = set of TMyType;

//...

var
  MyType: TMyType;
  MySet1: TMySet;
  MySet2: TMySet;
  MySet3: TMySet;
begin
  MyType := MyA;
  MySet1 := [MyA, MyB, MyC];
  MySet2 := [MyA, MyC];
  MySet3 := MySet1 * MySet2; // MySet3 enthält die Schnittmenge aus MySet1 und MySet2
  Exclude(MySet3, MyType); // MyType (MyA) entfernen
  Include(MySet3, MyB); // MyB hinzufügen