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

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

Данный пример иллюстрирует использование переменных-флагов и атрибута Flags.

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.

Ссылки