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

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

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

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

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

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

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

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

begin
  num1   := $25;    // Бинарное значение : 0010 0101
  num2   := $32;    // Бинарное значение : 0011 0010
                    // Значение после операции And : 0010 0000 = $20 = 32 dec
  letter := 'G';

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

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

  ShowMessageFmt('$25 And $32 = $%x',[num3]);
end;
Оба значения истинны
$25 And $32 = $20
 



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