13 lines
220 B
ObjectPascal
13 lines
220 B
ObjectPascal
|
unit u_pointers5;
|
||
|
|
const cp : ^integer = nil;
|
||
|
|
cptr : pointer = nil;
|
||
|
|
|
||
|
|
var p : ^integer := nil;
|
||
|
|
ptr : pointer := nil;
|
||
|
|
|
||
|
|
begin
|
||
|
|
assert(cp=nil);
|
||
|
|
assert(cptr=nil);
|
||
|
|
assert(p=nil);
|
||
|
|
assert(ptr=nil);
|
||
|
|
end.
|