mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 07:59:48 +02:00
16 lines
283 B
ObjectPascal
16 lines
283 B
ObjectPascal
program ex8;
|
|
|
|
{ Program to demonstrate the TObject.Done call }
|
|
|
|
Uses Objects;
|
|
|
|
Var O : PObject;
|
|
|
|
begin
|
|
Writeln ('Memavail : ',Memavail);
|
|
// Allocate memory for object.
|
|
O:=New(PObject,Init);
|
|
Writeln ('Memavail : ',Memavail);
|
|
O^.Done;
|
|
Writeln ('Memavail : ',Memavail);
|
|
end. |