Set of - Überprüfen welche Werte enthalten sind

[xZise]

Ich habe ein Set of definiert:

Delphi-Quellcode:

TFlags = (fWaiting, fWaitForStart, fWorking, fWaitForEnd)
{...}
flags : set of TFlags;

Wie kann ich nun überprüfen, welche Werte es enthält?
z.B. wenn das gegeben ist:
flags = [fWaiting, fWaitForEnd]; Geht das nur so?

Delphi-Quellcode:

if flags = [fWaiting] then
{...}

Aber was ist, wenn ich überprüfen will, of fWaiting vorhanden ist, aber der Rest mich (erstmal) nicht interessiert?

Delphi-Quellcode:

if flags = [fWaiting, else] then
{...}

[fwsp]

kannst du nicht
if [fWaiting] in flags then schreiben?

[xZise]

omfg

(sry)

Ja klar kann ich das...
Is nur so, dass ich das erste mal selber mit sets arbeite (naja.. bisher nur bei Komponenten wegen Anchors o.ä., aber eben nur setzten )

[Dezipaitor]

if x in Flags then ohne [] !!

[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