[next] [prev] [prev-tail] [tail] [up]

#### Assigned

Declaration:
  Function Assigned (P : Pointer) : Boolean;
Description:
  Assigned returns True if P is non-nil and retuns False of P is nil. The main use of Assigned is that Procedural variables, method variables and class-type variables also can be passed to Assigned.
Errors:
  None
See also:
  New (539)

Listing: refex/ex96.pp

Program Example96;
{ Program to demonstrate the Assigned function. }
Var P : Pointer;
begin
If Not Assigned(P) then
Writeln ('Pointer is initially NIL');
P:=@P;
If Not Assigned(P) then
Writeln('Internal inconsistency')
else
Writeln('All is well in FPC')
end.

[next] [prev] [prev-tail] [front] [up]