Функція Succ – інкрементує порядкову змінну

Функція Succ в Delphi інкрементує порядкову змінну.

Функція Succ: Приклад коду

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;