testheapobject.dpr

在Delphi2009中实现类似于STL中auto_ptr的智能指针！关于此智能指针的原理及解释请进入以下网址： http://www.cnblogs.com/felixYeou/archive/2

program TestHeapObject;

{$APPTYPE CONSOLE}

uses
	SysUtils;

type
	THeapObject = class  // 注意此处的声明，class表名为堆对象
	public
    	constructor Create; virtual;
        destructor Destroy; override;
        procedure DoPrint;
    end;

var
	heapObj: THeapObject;

{ TStackObject }

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

destructor THeapObject.Destroy;
begin
	Writeln('Destroy');
end;

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

begin
	heapObj := THeapObject.Create;
    heapObj.DoPrint;
    FreeAndNil(heapObj);

	Readln;
end.