Инструменты пользователя

Инструменты сайта


remobject_pascal_script:mnozhestva

Различия

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

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

Предыдущая версия справа и слева Предыдущая версия
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>​
remobject_pascal_script/mnozhestva.txt · Последние изменения: 2018/04/23 09:08 — 7bit