Перечислимый тип: флаги: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
Данный пример иллюстрирует использование переменных-флагов и атрибута Flags. | |||
<source lang="Delphi">uses System; | <source lang="Delphi">uses System; | ||
Текущая версия от 12:33, 16 января 2010
Данный пример иллюстрирует использование переменных-флагов и атрибута 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.