9 lines
172 B
ObjectPascal
9 lines
172 B
ObjectPascal
|
type
|
|||
|
|
[System.FlagsAttribute]
|
|||
|
|
TEnum = (X=1, Y=2);
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var enum := TEnum.X;
|
|||
|
|
assert(enum.HasFlag(TEnum.X) = true);
|
|||
|
|
assert(enum.HasFlag(TEnum.Y) = false);
|
|||
|
|
end.
|