t_id
470
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526193594 | 948316 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0280.pp } { problem with object finalization. OK 0.99.13 (FK) } {$mode objfpc} {$H+} program memhole; type TMyClass = class s: String; end; plongint = ^longint; procedure dotest; var c: TMyClass; s : string; begin s:='world'; s:='Hallo '+s; writeln((plongint(s)-4)^); c := TMyClass.Create; writeln(longint(c.s)); c.s := Copy('Test', 1, 4); writeln((plongint(c.s)-4)^); c.free; end; var membefore : longint; begin membefore:=memavail; writeln(memavail); dotest; writeln(memavail); if membefore<>memavail then begin Writeln('Memory hole using ansi strings in classes'); Halt(1); end else Writeln('No memory hole unsing ansi strings in classes'); end.