Справочник функций и процедур Delphi: And

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram