Man könnte auch die Elements selbst gruppieren und mit einem RecordHelper versehen, so in der Art:
Delphi-Quellcode:
TBla = (
// Group Available 1000-1999
a_Available = 1000, b_Available, c_Available
// Group Supported 2000-2999
a_Supported = 2000, b_Supported, c_Supported
);
TBla_Helper = record helper for TBla
function IsAvailable : Boolean;
function IsSupported : Boolean;
end;
TBlaSet = set of TBla;