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

Delphi Sources

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


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

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

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

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

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

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

 

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

Группа ВКонтакте