Delphi-Help

Inc

Печать
Рейтинг пользователей: / 1
ХудшийЛучший 

Inc

Описание

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

Процедура 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 может быть отрицательным.

Авторизация



Счетчики