Aufzählungstyp-Variablen vergleichen

[Der schöne Günther]

Delphi-Quellcode:

procedure p();
type
   TItem = (a, b, c);
   TSet = set of TItem;
var
   setA, setB, setC: TSet;
begin
   setA := [a, b];
   setB := [a, b, c];

   if (setA <= setB) then
      ShowMessage('A ist Teilmenge von B')
   else
      ShowMessage('A ist KEINE Teilmenge von B')

end;