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

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

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



Ord

показывает порядковый номер integer, character или enum

|| 1 function Ord ( Arg : AnsiChar | Char | WideChar | Enumeration | Integer ) : Integer;

|| 2  function Ord ( Arg : Int64 ) : Int64;

Описание:

    Delphi функция Ord возвращает целое значение для любого порядкового типа.

    Это используется, чтобы преобразовать символы или перечисления в их числовые эквиваленты.

Пример кода:

var
   A : AnsiChar;
   C : Char;
   W : WideChar;
   E : Boolean;
   I : Integer;
   I64 : Int64;

begin
   // Set the ordinal type values
   A := 'A';
   C := 'C';
   W := 'W';
   E := True;
   I := 22;
   I64 := 64;

   // And show the value of each
   ShowMessage('A = '+IntToStr(Ord(A)));
   ShowMessage('C = '+IntToStr(Ord(C)));
   ShowMessage('W = '+IntToStr(Ord(W)));
   ShowMessage('E = '+IntToStr(Ord(E)));
   ShowMessage('I = '+IntToStr(Ord(I)));
   ShowMessage('I64 = '+IntToStr(Ord(I64)));
end;

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

A = 65
C = 67
W = 87
E = 1
I = 22
I64 = 64