Delphi Basics : Succ command

DelphiBasics

Succ
Function

Increment an ordinal variable

System unit

function Succ(const Ordinal Value):Ordinal type;

Description

The Succ function increments an ordinal value, and returns this value.

You can increment :

Characters
Non-floating number types
Enumeration types
Pointers

The increment is by the base size of the unit. For example, incrementing a Pointer will be by 4 bytes if the pointer points to Words.

Notes

Succ is equivalent in performance to simple addition, or the Inc procedure.

Related commands

Dec		Decrement an ordinal variable
Inc		Increment an ordinal variable
Pred		Decrement an ordinal variable
Sqr		Gives the square of a number
Sqrt		Gives the square root of a number
Sum		Return the sum of an array of floating point values

Download this web site as a Windows program.

Example code : Incrementing characters, numbers and enumerations

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;

Show full unit code

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