Einem Set einen Enum zuweisen?

[himitsu]

Hmmmm, war mir sicher, dass es sorum auch mal ging.

Delphi-Quellcode:

type
  TDataEnum = (tdHouse, tdCar);
  TDataSet = set of TDataEnum;

procedure TForm9.FormCreate(Sender: TObject);
var
  aDataSet: TDataSet;
begin
  Byte(aDataSet) := $FF;  // Byte(-1)
end;

procedure TForm9.FormCreate(Sender: TObject);
var
  aDataSet: TDataSet;
  iDataSet: ShortInt absolute aDataSet;
begin
  iDataSet := -1;
  if tdHouse in aDataSet then
    Beep;
end;