Delphi-Help

Succ

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

Succ

Описание

function Succ ( const Ordinal Value ) : Ordinal type;

Функция Succ инкрементирует порядковое значение и возвращает его как результат.

Вы можете инкрементировать:

Символы
Невещественные числовые типы
Тип перечисления
Pointers Указатели

Значение увеличивается на размер переменной. Например, при инкременте указателя(Pointer) его значение увеличится на 4, если указатель ссылается на значения с типом Word

Пример кода

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

Примечание

Succ эквивалентен в работе простому добавлению, или процедуре Inc.

 

Авторизация



Счетчики