Процедура Inc в Delphi збільшує порядкову змінну.
System unit
- procedure Inc (var Variable : Ordinal variable);
- procedure Inc (var Variable : Ordinal variable; Count : Integer);
Процедура Inc збільшує, порядкову змінну, передану йому.
Ви можете збільшити:
- Символи;
- Числа без плаваючої коми;
- Перераховані типи;
- Вказівники.
Варіант 1: Inc підвищує на 1 одиницю.
Варіант 2: Inc збільшує на Count одиниць.
Примітка.
Inc еквівалентний у роботі простому додаванню, або процедурі Succ.
Count може бути негативним (від'ємним).
Процедура Inc: Збільшення символів, чисел та перерахувань
type
TSuit = (Черви, Трефи, Бубни, Піки);
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('Картка починається з Трефів');
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
Картка починається з Трефів
Карта зараз Піка
Подібні функції, процедури та команди
Dec — декремент порядкової змінної.
Pred — зменшує порядкову змінну.
Sqr — повертає квадрат числа.
Sqrt — повертає квадратний корінь числа.
Succ — інкрементує порядкову змінну.
Sum — знаходить суму елементів масиву, що складається з чисел з плаваючою точкою.
