Перечислимый тип: флаги: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
<source lang="Delphi">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.</source> | |||
== Ссылки == | == Ссылки == | ||
*[[Особенности языка: продвинутый уровень]] | *[[Особенности языка: продвинутый уровень]] | ||
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] | *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] |
Версия от 12:32, 16 января 2010
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.