Справочник функций и процедур Delphi: Dec

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

Dec
Процедура
Декремент порядковой переменной System unit
  
1 procedure Dec ( var Variable : Ordinal variable ) ;

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

Google  
 
Описание
Процедура Dec уменьшает переданный ей как параметр порядковую переменную Variable.

Вы можете уменьшить:

Символы
Неплавающие типы чисел
Типы перечисления
Указатели

Уменьшение будет происходить в зависимости от основного размера единицы. Например, уменьшение Pointer (указателя) будет по 4 байта, если указатель указывает на Слова.

Версия 1 Dec уменьшает на 1 единицу.

Версия 2 Dec уменьшает на Count единиц.
Примечания
Dec эквивалентен в работе простому вычитанию, или процедуре Pred.

Count может быть отрицательным.
Похожие команды
Inc  Увеличивает порядковую переменную

Pred  Уменьшает порядковую переменную

Sqr  Возвращает квадрат числа

Sqrt  Возвращает квадратный корень числа

Succ  Инкрементирует порядковую переменную

Sum  Находит сумму элементов массива, состоящего из чисел с плавающей точкой

 
Пример кода : Уменьшение символов, чисел и перечислений
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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook