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;
|