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
 



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