Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Последний день месяца
   Категория: Базы данных
  Найти все компьютеры в сети
   Категория: Интернет и Сети
  Компоненты TrackBar и ScrollBar
   Категория: Компоненты
  Как удалить не пустой каталог
   Категория: Файловая система
  Функции дат в SQL
   Категория: Базы данных
  Фреймы
   Категория: Компоненты
  Добавить данные в EXE файл и получить их
   Категория: Файловая система
  Номер строки в memo под курсором
   Категория: Текст и строки

Delphi - Справочник: Inc

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Inc
1 procedure Inc ( var Variable : Ordinal variable ) ;

2 procedure Inc ( var Variable : Ordinal variable; Count : Integer ) ;
Процедура (Unit System)
Увеличивает порядковую переменную
Описание:
Процедура Inc увеличивает, порядковую переменную переданную ему.
Вы можете увеличить:

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

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

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
Карта начинается с Крести
Карта сейчас Пики
Примечание:
Inc эквивалентен в работе простому добавлению, или процедуре Succ.

Count может быть отрицательным.

  << Вернуться