testheapobject.dpr

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

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.