Wie testet man ob Enum in Teilgruppe davon?

[s.h.a.r.k]

So könnte man es machen:

Delphi-Quellcode:

type
  TElement = (Wasserstoff, Helium, Sauerstoff, Neon, Kohlenstoff);
  TEdelgas = Set of TElement;

var
  Edelgas : TEdelgas;
  element : TElement;
begin
  Edelgas = [Wasserstofft, Helium, Neon];
  element := Neon;

  if (element in Edelgas) then
    ShowMessage('Juhu.');
end;

//edit
Wo war die rote Box?

//edit(2)
Das hier ist vielleicht interessanter für dich:

Delphi-Quellcode:

type
  TElement = (Wasserstoff = 10, Neon = 15, Sauerstoff = 17);

const
  Blub = [TElement.Wasserstoff, TElement.Neon];
  { bzw. }
  Blub = [Wasserstoff, Neon];

  { Der Rest wie gehabt. }