Mega Code Archive
Succ - increment an ordinal variable system unit
<![CDATA[
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
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
]]>