Справочник функций и процедур 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 ) ;


Описание
Процедура 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
 


Последние добавленные на сайт исходники

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

 

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

Рисование Луны

Поворот изображения

 

Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

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