Dec

procedure Dec(var X: Integer); overload;

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

Example
TRObject Syntax

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

Base Syntax

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

Output:

Number : 23
Number-1 : 22

See Also

• Math Functions