Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
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
Карта начинается с Крести
Карта сейчас Пики
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия