fpcdocs/objectex/ex7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program ex7;

{ Program to demonstrate the TObject.Free call }

Uses Objects;

Var O : PObject;

begin
  // Allocate memory for object.
  O:=New(PObject,Init);
  // Free memory of object.
  O^.free;
end.