Delphi-Help

Dec

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Dec

Описание

1 procedure Dec ( var Variable : Ordinal variable );
2 procedure Dec ( var Variable : Ordinal variable; Count : Integer );

Процедура 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 может быть отрицательным.

Авторизация



Счетчики