Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Определение размера каталога
Категория: Файловая система
Категория: Файловая система
Как можно проверить, запущена программа с локального диска или из сети
Категория: Интернет и Сети
Категория: Интернет и Сети
Как произвести поиск файлов во вложенных папках
Категория: Файловая система
Категория: Файловая система
Узнать установлена ли BDE
Категория: Базы данных
Категория: Базы данных
Функции дат в SQL
Категория: Базы данных
Категория: Базы данных
Создание кнопки на панели в IE
Категория: Интернет и Сети
Категория: Интернет и Сети
BDE. Создание алиасов
Категория: Базы данных
Категория: Базы данных
Шифрование текста по паролю
Категория: Текст и строки
Категория: Текст и строки
Сохранить документ Word как RTF на DELPHI
Категория: Файловая система
Категория: Файловая система
Вытащить значение поля в выделенных строках
Категория: Базы данных
Категория: Базы данных
Delphi - Справочник: Dec
Dec
|
1 procedure Dec ( var Variable : Ordinal variable ) ; 2 procedure Dec ( var Variable : Ordinal variable; Count : Integer ) ; |
Процедура (Unit System)
|
Декремент порядковой переменной
|
Описание:
|
Процедура Dec уменьшает переданный ей как параметр порядковую переменную Variable. Вы можете уменьшить: Символы Неплавающие типы чисел Типы перечисления Указатели Уменьшение будет происходить в зависимости от основного размера единицы. Например, уменьшение Pointer (указателя) будет по 4 байта, если указатель указывает на Слова. Версия 1 Dec уменьшает на 1 единицу. Версия 2 Dec уменьшает на Count единиц. |
Пример кода: Уменьшение символов, чисел и перечислений
|
type TSuit = (Hearts, Clubs, Diamonds, Spades); var Character : char; Number : Integer; Card : TSuit; begin // Мы можем уменьшать символы Character := 'B'; ShowMessage('Character : '+Character); Dec(Character); ShowMessage('Character-1 : '+Character); // Мы можем уменьшать числа Number := 23; ShowMessage('Number : '+IntToStr(Number)); Dec(Number, 5); ShowMessage('Number-5 : '+IntToStr(Number)); // Мы можем уменьшать перечисления Card := Clubs; ShowMessage('Card starts at Clubs'); Dec(Card); if Card = Hearts then ShowMessage('Card is now Hearts'); if Card = Clubs then ShowMessage('Card is now Clubs'); if Card = Diamonds then ShowMessage('Card is now Diamonds'); if Card = Spades then ShowMessage('Card is now Spades'); end;
Результат:
|
Character : B Character-1 : A Number : 23 Number-5 : 18 Card starts at Clubs Card is now Hearts |
Примечание:
|
Dec эквивалентен в работе простому вычитанию, или процедуре Pred. Count может быть отрицательным. |