RosettaCodeData/Task/Memory-allocation/Pascal/memory-allocation-2.pascal

12 lines
107 B
Plaintext

type
Tcl = class
dummy: longint;
end;
var
c1: cl;
begin
c1:=Tcl.create;
...
c1.destroy;
end;