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

Google  
 
Описание
Процедура 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
Карта начинается с Крести
Карта сейчас Пики
 


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


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