fpcsrc/tests/tbs/tb0174.pp


1
2
3
4
5
6
7
8
9
10
11

{ Old file: tbs0207.pp }
{ a class destructor doesn't release the memory        OK 0.99.11 (FK) }


{$mode delphi}
 var i : longint;

begin
   for i:=1 to 100 do
     tobject.create.free;
end.