Клуб программистов

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

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

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

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

type
   TSuit = (Hearts, Clubs, Diamonds, Spades);

var
   Character : char;
   Number : Integer;
   Card : TSuit;

begin
   // We can increment characters
   Character := 'A';

   ShowMessage('Character : '+Character);
   Character := Succ(Character);
   ShowMessage('Character+1 : '+Character);

   // We can increment numbers
   Number := 23;

   ShowMessage('Number : '+IntToStr(Number));
   Number := Succ(Number);
   ShowMessage('Number+1 : '+IntToStr(Number));

   // We can increment enumerations
   Card := Clubs;

   ShowMessage('Card starts at Clubs');
   Card := Succ(Card);
   if Card = Hearts then ShowMessage('Card is now Hearts');
   if Card = Clubs then ShowMessage('Card is now Clubs');
   if Card = Diamonds then ShowMessage('Card is now Diamonds');
   if Card = Spades then ShowMessage('Card is now Spades');
end;

Character : A
Character+1 : B
Number : 23
Number+1 : 24
Card starts at Clubs
Card is now Diamonds