testclassicalautoptr.dpr

来自「在Delphi2009中实现类似于STL中auto_ptr的智能指针！关于此智能」· DPR 代码 · 共 51 行

program TestClassicalAutoPtr;

{$APPTYPE CONSOLE}

uses
	SysUtils,
	ClassicalAutoPtr in 'ClassicalAutoPtr.pas';

type
	TTestClass = class
    public
    	constructor Create; virtual;
        destructor Destroy; override;
        procedure DoPrint;
    end;

{ TTestClass }

constructor TTestClass.Create;
begin
	Writeln('Create');
end;

destructor TTestClass.Destroy;
begin
    Writeln('Destroy');
	inherited;
end;

procedure TTestClass.DoPrint;
begin
	Writeln('DoPrint');
end;

procedure DoTest;
var
	tt: TTestClass;
begin
	// 首先创建一个堆对象
    tt := TTestClass.Create;

    // 创建一个智能指针，并把堆对象的引用传入智能指针，由智能指针管理堆对象
    TClassicalAutoPtr.New(tt);
    tt.DoPrint;
end;

begin
	DoTest;
    Readln;
end.