Перечислимый тип: флаги

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску 
uses System;

type
  [FlagsAttribute]
  BookAttribute = (ComputerBook = 1, OneAuthor = 2, SmallSize = 4);
  
var 
  b1: BookAttribute := ComputerBook or OneAuthor;  
  b2: BookAttribute := OneAuthor or SmallSize or ComputerBook;  

begin
  writeln(b1);
  writeln(b2);
end.

Ссылки

Источник — https://pascalabc.net/wiki/index.php?title=Перечислимый_тип:_флаги&oldid=1393