在 Delphi 中要实现智能指针，实际上是一个挺麻烦的事。QString.pas 单元的 TQPtr 封装了一个智能指针的实现，它和一般的智能指针实现一样，利用了接口的自动管理特性。我们先看一下它的声明： IQPtr = interface(IInterface) function Get: Pointer; end