testwarndestroy.obs

来自「格式化源码的最新板」· OBS 代码 · 共 4 行

unit testwarndestroy;interface type tfoo=class public destructor destroy;override
;procedure testcreate;end;implementation destructor tfoo.destroy;begin inherited 
destroy;end;procedure tfoo.testcreate;var lcfoo:tfoo;begin lcfoo:=tfoo.create;lcfoo
.destroy;end;end.