destructortest.dpr

Delphi7从入门到精通及附书源码 Delphi7从入门到精通及附书源码

program DestructorTest;

{$APPTYPE CONSOLE}

uses
  MyClass in 'MyClass.pas';

var
  test : TMyClass;

begin
  WriteLn ('DestructorTest starts');
  test := TMyClass.Create;
  test.Free;
  WriteLn ('DestructorTest ends');
end.