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
Xor
Ключевое слово
Булевская переменная Xor или поразрядный Xor двух параметров unit
  
1 Boolean expression Xor Boolean expression

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

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

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

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

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

Or  Булевская or или поразрядная or двух аргументов

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

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

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

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

  // Показ результата
  ShowMessageFmt('$25 Xor $32 = $%x',[num3]);
end;
Оба значения истины или ложны
$25 Xor $32 = $17
 



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