blob: 843775f89cc484910153739a355eb9ee558a257e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example2;
{ Program to demonstrate the Addr function. }
Const Zero : integer = 0;
Var p : pointer;
i : Integer;
begin
p:=Addr(p); { P points to itself }
p:=Addr(I); { P points to I }
p:=Addr(Zero); { P points to 'Zero' }
end.
|
