| Описание |
Функция Succ инкрементирует порядковое значение и возвращает его как результат.
Вы можете инкрементировать:
Символы
Невещественные числовые типы
Тип перечисления
Pointers Указатели
Значение увеличивается на размер переменной. Например, при инкременте указателя(Pointer) его значение увеличится на 4, если указатель ссылается на значения с типом Word
|
|
| Примечания |
|
Succ эквивалентен в работе простому добавлению, или процедуре Inc.
|
|
| Похожие команды |
Dec Декремент порядковой переменной
Inc Увеличивает порядковую переменную
Pred Уменьшает порядковую переменную
Sqr Возвращает квадрат числа
Sqrt Возвращает квадратный корень числа
Sum Находит сумму элементов массива, состоящего из чисел с плавающей точкой
| |
|
| Пример кода : Увеличение символов, чисел и перечислений |
type
TSuit = (Hearts, Clubs, Diamonds, Spades);
var
Character : char;
Number : Integer;
Card : TSuit;
begin
// Мы можем увеличить символы
Character := 'A';
ShowMessage('Character : '+Character);
Character := Succ(Character);
ShowMessage('Character+1 : '+Character);
// Мы можем увеличить числа
Number := 23;
ShowMessage('Number : '+IntToStr(Number));
Number := Succ(Number);
ShowMessage('Number+1 : '+IntToStr(Number));
// Мы можем увеличить перечисления
Card := Clubs;
ShowMessage('Card начинается с Clubs');
Card := Succ(Card);
if Card = Hearts then ShowMessage('Card сейчас Hearts');
if Card = Clubs then ShowMessage('Card сейчас Clubs');
if Card = Diamonds then ShowMessage('Card сейчас Diamonds');
if Card = Spades then ShowMessage('Card сейчас Spades');
end;
|
Character : A
Character+1 : B
Number : 23
Number+1 : 24
Card начинается Clubs
Card сейчас Diamonds
|
|
