Decrease value of variable.
Source position: system.fpd line 38
procedure Dec( |
var X: TOrdinal |
); |
var X: TOrdinal; |
Decrement: TOrdinal |
); |
Dec decreases the value of X with Decrement. If Decrement isn't specified, then 1 is taken as a default.
Dec can be used on typed pointers: in that case it decreases the value with Decrement the size of the type the pointer points to. This works independently of the setting of the $POINTERMATH directive.
A range check can occur, or an underflow error, if an attempt is made to decrease X below its minimum value.
|
Increase value of integer variable. |
Program Example14; { Program to demonstrate the Dec function. } Var I : Integer; L : Longint; W : Word; B : Byte; Si : ShortInt; begin I:=1; L:=2; W:=3; B:=4; Si:=5; Dec (i); { i:=0 } Dec (L,2); { L:=0 } Dec (W,2); { W:=1 } Dec (B,-2); { B:=6 } Dec (Si,0); { Si:=5 } end.