testautoptr.dpr

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

program TestAutoPtr;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  AutoPtr in 'AutoPtr.pas';

type
	TTestClass = class
    private
    	fInt: Integer;
    public
    	constructor Create(aInt: Integer); virtual;
        destructor Destroy; override;
        procedure DoPrintInt;
    end;

{ TTestClass }

constructor TTestClass.Create(aInt: Integer);
begin
	fInt := aInt;
	Writeln('Create');
end;

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

	inherited;
end;

procedure TTestClass.DoPrintInt;
begin
	Writeln(fInt);
end;

procedure DoTestAutoPtr;
var
	tt: TTestClass;
begin
	tt := TAutoPtr<TTestClass>.New(TTestClass.Create(10)).Get;
    tt.DoPrintInt;
end;

begin
    DoTestAutoPtr;
	Readln;
end.