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

Материал из Вики проекта 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.

Ссылки

Персональные инструменты