Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



And

Логическое или побитовое "и" двух аргументов

  1. Boolean expression and Boolean expression
  2. Integer expression and Integer expression

Описание:

    Ключевое слово And используется в двух разных случаях:

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

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

     10110001 And 01100110 = 00100000

Пример кода:

var
   num1, num2, num3 : Integer;
   letter : Char;

begin
   num1 := $25; // Binary value : 0010 0101
   num2 := $32; // Binary value : 0011 0010
// And'ed value : 0010 0000 = $20 = 32 dec
   letter := 'G';

   // And used to return a Boolean value
   if (num1 > 0) And (letter = 'G')
   then ShowMessage('Both values are true')
   else ShowMessage('None or only one true value');

   // And used to perform a mathematical AND operation
   num3 := num1 And num2;

   ShowMessageFmt('$25 And $32 = $%x',[num3]);
end;

Результат выполнения:

Both values are true
$25 And $32 = $20