teststackobject.dpr

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

program TestStackObject;

{$APPTYPE CONSOLE}

uses
	SysUtils;

type
	TStackObject = object
	public
    	constructor Create; 
        destructor Destroy; 
        procedure DoPrint;
    end;

var
	stackObj: TStackObject;

{ TStackObject }

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

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

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

begin
	// 注意此处的代码，不需要使用TStackObject.Create
    stackObj.DoPrint;

	Readln;
end.