Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Pred
Pred
|
function Pred ( const Ordinal Value ) : Ordinal type; |
Функция (Unit System)
|
Уменьшает порядковую переменную
|
Описание:
|
Функция Pred уменьшает значение порядковой переменной, и возвращает её значение. Вы можете уменьшить: Символы Числа без плавающей запятой Перечисляемые типы Указатели Уменьшение происходит в зависимости от размера элемента (единицы). Например, Pointer будет уменьшаться по 4 байта, если указатель указывает на Word. |
Пример кода: Уменьшение символов, чисел и перечислений
|
type TSuit = (Hearts, Clubs, Diamonds, Spades); var Character : char; Number : Integer; Card : TSuit; begin // Мы можем уменьшать символы Character := 'B'; ShowMessage('Character : '+Character); Character := Pred(Character); ShowMessage('Character-1 : '+Character); // Мы можем уменьшать числа Number := 23; ShowMessage('Number : '+IntToStr(Number)); Number := Pred(Number); ShowMessage('Number-1 : '+IntToStr(Number)); // Мы можем уменьшать перечисления Card := Clubs; ShowMessage('Card starts at Clubs'); Card := Pred(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;
Результат:
|
Функция Pred уменьшает значение порядковой переменной, и возвращает её значение. Вы можете уменьшить: Символы Числа без плавающей запятой Перечисляемые типы Указатели Уменьшение происходит в зависимости от размера элемента (единицы). Например, Pointer будет уменьшаться по 4 байта, если указатель указывает на Word. |
Примечание:
|
В работе Pred эквивалентен простому вычитанию, или процедуре Dec. |