blob: a709a185a5780debf5afa3c681ac817e95d9349b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Program example83;
{ Program to demonstrate the Assigned function }
Procedure DoSomething;
begin
Writeln ('Hello from doseomething!')
end;
Type
TProcType = Procedure;
Var P : Pointer;
Procvar : TProcType;
begin
P:=Nil;
If not Assigned(P) then
Writeln('P is nil');
Getmem(P,1000);
If Assigned(P) Then
writeln ('P Points in the heap.');
FreeMem(P,1000);
procvar:=@DoSomething;
If Assigned(ProcVar) then
Writeln ('Procvar is non-nil');
procvar:=TProcType(Nil);
If Not Assigned(Procvar) then
Writeln ('Procvar is nil');
end.
|
