1
{ Old file: tbs0292.pp }
2
{ objects not finalized when disposed OK 0.99.13 (FK) }
10
constructor init(s: ansistring);
15
TAnsiRec = Packed Record
22
const firstoff = sizeof(tansirec)-1;
27
constructor tobj.init(s: ansistring);
37
s : string = ' with suffix';
42
refbefore:=pansirec(pointer(t)-firstoff)^.ref;
43
writeln('refcount before init: ',pansirec(pointer(t)-firstoff)^.ref);
45
writeln('refcount after init: ',pansirec(pointer(t)-firstoff)^.ref);
47
writeln('refcount after done: ',pansirec(pointer(t)-firstoff)^.ref);
48
if refbefore<>pansirec(pointer(t)-firstoff)^.ref then