fpcdocs/refex/ex89.pp


1
2
3
4
5
6
7
8
9
10

Program Example89;

{ Program to demonstrate the FreeMem function. }

Var P : Pointer;

begin
  GetMem(P,10000);
  FreeMem(P);
end.