testwarndestroy.out

格式化源码的最新板

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.