Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Or
Ключевое слово
Булевская or или поразрядная or двух аргументов unit
  
1 Boolean expression or Boolean expression

2 Integer expression or Integer expression
Описание
Ключевое слово Or используется двумя различными способами:

1. Для выполнения логического или булевого 'или' двух логических значений. Если любой истинен, то результат истинен, иначе ложный.

2. Для выполнения математического 'или' двух целых чисел. Результат поразрядное 'или' этих двух чисел. Например:

10110001 Or 01100110 = 11110111
Примечания
Если булево выражение вычисляется (вместо того, чтобы быть Булевой переменной), то необходимо взять его в скобки.
Похожие команды
And  Булев and или поразрядный and двух аргументов

Not  Булев Not или поразрядный Not без одного аргумента.

Xor  Булевская переменная Xor или поразрядный Xor двух параметров

 
Пример кода : Иллюстрация использования обоих типов Or
var
  num1, num2, num3 : Integer;
  letter           : Char;

begin
  num1   := $25;    // Бинарное значение : 0010 0101   $25
  num2   := $32;    // Бинарное значение : 0011 0010   $32
                    // Значение после применения Or  : 0011 0111 = $37
  letter := 'G';

  // Использование для возвращения Булева значения
  if (num1 > 0) Or (letter = 'G')
  then ShowMessage('Не менее одного истинного значения')
  else ShowMessage('Оба значения ложны');

  // Использование для выполнения математической операции OR
  num3 := num1 Or num2;

  // Отображения результата
  ShowMessageFmt('$25 or $32 = $%x',[num3]);
end;
Не менее одного истинного значения
$25 or $32 = $37
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия