Dec

procedure Dec(var Variable Ordinal variable);

The Dec procedure decrements the ordinal Variable parameter passed to it.

Example:

Base Syntax

 var
   Number    : Integer;
 
 begin
   Number := 23;
   ShowMessage('Number : '+IntToStr(Number));
   Dec(Number);
   ShowMessage('Number-1 : '+IntToStr(Number));
 end;

TRObject Syntax

 var
   Number    : Integer;
 
 {
   Number = 23;
   ShowMessage('Number : '+IntToStr(Number));
   Dec(Number);
   ShowMessage('Number-1 : '+IntToStr(Number));
 }

Output:

Number : 23

Number-1 : 22