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

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

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

Inc
Процедура
Увеличивает порядковую переменную System unit
  
1 procedure Inc ( var Variable : Ordinal variable ) ;

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


Описание
Процедура Inc увеличивает, порядковую переменную переданную ему.
Вы можете увеличить:

Символы
Числа без плавающей запятой
Перечисляемые типы
Указатели

Версия 1: Inc увеличивает на 1 единицу.
Версия 2: Inc увеличивает на Count единиц.
Примечания
Inc эквивалентен в работе простому добавлению, или процедуре Succ.

Count может быть отрицательным.
Похожие команды
Dec  Декремент порядковой переменной

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

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

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

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

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

 
Пример кода : Увеличение символов, чисел и перечислений
type
  TSuit = (Hearts, Clubs, Diamonds, Spades);
var
  Character : char;
  Number    : Integer;
  Card      : TSuit;

begin
  // Мы можем приращивать символы
  Character := 'A';

  ShowMessage('Символ : '+Character);
  Inc(Character);
  ShowMessage('Символ+1 : '+Character);

  // Мы можем приращивать числа
  Number := 23;

  ShowMessage('Число : '+IntToStr(Number));
  Inc(Number, 5);
  ShowMessage(Число+5 : '+IntToStr(Number));

  // Мы можем приращивать перечисления
  Card := Clubs;

  ShowMessage('Card starts at Clubs');
  Inc(Card);
  if Card = Hearts then ShowMessage('Карта сейчас Сердце');
  if Card = Clubs then ShowMessage('Карта сейчас Крести');
  if Card = Diamonds then ShowMessage('Карта сейчас Буби');
  if Card = Spades then ShowMessage('Карта сейчас Пики');
end;
Символ: A
Символ + 1: B
Число: 23
Число + 5: 28
Карта начинается с Крести
Карта сейчас Пики
 


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

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