blob: 2e78b706822ba25e9dab00eb9880c22def2e2ef0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Program Example32;
{ Program to demonstrate the Inc function. }
Const
C : Cardinal = 1;
L : Longint = 1;
I : Integer = 1;
W : Word = 1;
B : Byte = 1;
SI : ShortInt = 1;
CH : Char = 'A';
begin
Inc (C); { C:=2 }
Inc (L,5); { L:=6 }
Inc (I,-3); { I:=-2 }
Inc (W,3); { W:=4 }
Inc (B,100); { B:=101 }
Inc (SI,-3); { Si:=-2 }
Inc (CH,1); { ch:='B' }
end.
|
