Модуль: System

Описание
Функция возвращает порядковый номер (индекс) выражения перечислимого (кроме Int64) или символьного типа, переданного в параметре X. Если аргумент имеет перечислимый тип, то функция возвращает индекс элемента (1-й элемент имеет индекс 0). Если Х представляет собой значение типа Char, то функция возвращает ASCII код символа.

Пример
type
   MyType = (x1, x2, x3, x4);
var
  S: string;
begin
   S:= 'x3 имеет порядковый номер '+ IntToStr( Ord( x3 ))+ #13;
   S:= S+ 'ASCII код символа "Б" - ' + IntToStr( Ord( 'Б' ))+ #13;
   S:= S+ 'ASCII код символа "б" - ' + IntToStr( Ord( 'б' ));
   MessageDlg( S, mtInformation, [mbOk], 0);
end;