Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
remobject_pascal_script:mnozhestva [2018/04/01 21:20]
jurist23rus
remobject_pascal_script:mnozhestva [2018/04/23 09:08] (текущий)
7bit Форматирование кода
Строка 11: Строка 11:
 <code delphi> <code delphi>
 type type
- TMyButton = (bnOk, bnCancel, bnYes, bnNo); +  TMyButton = (bnOk, bnCancel, bnYes, bnNo); 
- TMyButtons = set of TMyButton;+  TMyButtons = set of TMyButton;
 var var
- MyButtons: TMyButtons;+  MyButtons: TMyButtons;
 begin begin
- // Присваиваем множество переменной. Множество представляет собой элементы в квадратных +  // Присваиваем множество переменной. Множество представляет собой элементы в квадратных 
- // скобках, разделенные запятой +  // скобках, разделенные запятой 
- MyButtons := [bnOk, bnCancel]; +  MyButtons := [bnOk, bnCancel]; 
- // Включаем во множество элемент. Получаем [bnOk, bnCancel, bnYes] +  // Включаем во множество элемент. Получаем [bnOk, bnCancel, bnYes] 
- Include(MyButtons, bnYes]; +  Include(MyButtons, bnYes]; 
- // Исключаем из множеста элемент. Получаем [bnOk, bnYes] +  // Исключаем из множества элемент. Получаем [bnOk, bnYes] 
- Exclude(MyButtons, bnCancel); +  Exclude(MyButtons, bnCancel); 
- // Пересечение множеств. Результатом будет множество, элементы которого есть в обоих +  // Пересечение множеств. Результатом будет множество, элементы которого есть в обоих 
- // множествах. Получаем [bnYes] +  // множествах. Получаем [bnYes] 
- MyButtons := MyButtons * [bnYes, bnNo]; +  MyButtons := MyButtons * [bnYes, bnNo]; 
- // Объединение множеств. Первое множество дополняется недостающими элементами из второго +  // Объединение множеств. Первое множество дополняется недостающими элементами из второго 
- // множества. Получаем [bnYes, bnNo] +  // множества. Получаем [bnYes, bnNo] 
- MyButtons := MyButtons + [bnYes, bnNo]; +  MyButtons := MyButtons + [bnYes, bnNo]; 
- // Разность множеств. Результат содержит элементы из первого множества, которые не +  // Разность множеств. Результат содержит элементы из первого множества, которые не 
- // принадлежат второму. Получаем [bnNo] +  // принадлежат второму. Получаем [bnNo] 
-MyButtons := MyButtons - [bnYes]; +  MyButtons := MyButtons - [bnYes]; 
- // Проверка эквивалентности. Получаем True, т. к. множества эквиваленты +  // Проверка эквивалентности. Получаем True, т. к. множества эквиваленты 
- if MyButtons = [bnNo] then … +  if MyButtons = [bnNo] then … 
- // Проверка неэквивалентности +  // Проверка неэквивалентности 
- if MyButtons <> [bnYes, bnNo] then … +  if MyButtons <> [bnYes, bnNo] then … 
- // Проверка вхождения. Возвращает True если первое множество включено во второе +  // Проверка вхождения. Возвращает True если первое множество включено во второе 
- if MyButtons <= [bnYes, bnNo, bnCancel] then … +  if MyButtons <= [bnYes, bnNo, bnCancel] then … 
- // Проверка вхождения. Возвращает True если второе множество включено в первое +  // Проверка вхождения. Возвращает True если второе множество включено в первое 
- if MyButtons >= [bnYes, bnNo, bnCancel] then … +  if MyButtons >= [bnYes, bnNo, bnCancel] then … 
- // С помощью оператора in определяем принадлежность элемента множеству. Слева от +  // С помощью оператора in определяем принадлежность элемента множеству. Слева от 
- // оператора in может быть произвольное выражение +  // оператора in может быть произвольное выражение 
- if bnOk in MyButtons then …+  if bnOk in MyButtons then …
 end; end;
 </code> </code>