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:

Delphi-Quellcode:

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

Delphi-Quellcode:

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]

Delphi-Quellcode:

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