testinterface.dpr

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

program TestInterface;

{$APPTYPE CONSOLE}

uses
	SysUtils;

type
    ITestInterface = interface
    ['{ED2517D5-FB77-4DD6-BC89-DF9182B335AE}']
        procedure DoPrint;
    end;

    TTestInterface = class(TInterfacedObject, ITestInterface)
    public
    	constructor Create; virtual;
        destructor Destroy; override;
        procedure DoPrint;
    end;

{ TTestInterface }

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

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

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

procedure DoTest;
var
    testInter: TTestInterface;
begin
	testInter := TTestInterface.Create;
    testInter.DoPrint;
end;

begin
    DoTest;
    Readln;
end.