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

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

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



Low

передаёт самое маленькое значение

|| function Low ( type or variable ) : Ordinal type;

Описание:

    Delphi функция Low возвращает самое маленькое, минимальное значение переменной этого типа или просто массива.

    Это относится только к символам, массивам, перечислениям и коротким строкам.

    Для массивов, возвращает наименьший индекс.

Пример кода:

type
   // Declare character, array and enumerated data types
   TChar = char;
   TArray = array [3..7] of Integer;
   TEnum = (Mon=5, Tue, Wed, Thu, Fri, Sat, Sun);
   TShort = shortstring;

var
   // Declare variables of the above data types
   myChar : TChar;
   myArray : TArray;
   myEnum : TEnum;
   myShort : TShort;

begin
   // Show the low values of the types and variables
   ShowMessage('Low(TChar) = '+IntToStr(Ord(Low(TChar))));
   ShowMessage('Low(myChar) = '+IntToStr(Ord(Low(myChar))));

   ShowMessage('Low(TArray) = '+IntToStr(Low(TArray)));
   ShowMessage('Low(myArray) = '+IntToStr(Low(myArray)));
   ShowMessage('High(myArray) = '+IntToStr(High(myArray)));

   ShowMessage('Low(TEnum) = '+IntToStr(Ord(Low(TEnum))));
   ShowMessage('Low(myEnum) = '+IntToStr(Ord(Low(myEnum))));
   ShowMessage('High(myEnum) = '+IntToStr(Ord(High(myEnum))));

   ShowMessage('Low(TShort) = '+IntToStr(Ord(Low(TShort))));
   ShowMessage('Low(myShort) = '+IntToStr(Ord(Low(myShort))));
end;

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

Low(TChar) = 0
Low(myChar) = 0
Low(TArray) = 3
Low(myArray) = 3
Hig( myArray) = 7
Low(TEnum) = 5
Low(myEnum) = 5
Hig( myEnum) = 11
Low(TShort) = 0
Low(myShort) = 0