program Demo1;

uses Tid.GCObject;

type TMyClass = class(TGCObject)
protected
  procedure Finalize; override; // 析构器的代码写在这里
public
  Data: Integer;
  Obj: TObject;
  AutoObj: TGCObject;
  constructor Create(Owner: TGCObject);
end;

constructor TMyClass.Create(Owner: TGCObject);
begin
  inherited Create(Owner);
  Data := 1314;
  Obj := TObject.Create;
  AutoObj := TGCObject.Create;
end;

procedure TMyClass.Finalize; override;
begin
  Obj.Free; // 类内部的非自动内存管理对象要在析构时释放
  // AutoObj 是自动内存管理对象, 不需要释放
end;

var
  MyObject: TMyClass;
begin
  TGCObject.LocalBegin; // 在 LocalBegin 与 LocalEnd 之间创建的的对象如果
                        // 没有被之外的对象引用, 会在 LocalEnd 结束后释放
  MyObject := TMyClass.Create;
  Writeln(MyObject.Data);
  TGCObject.LocalEnd;
  // MyObject 将在 LocalEnd 之后被释放
end.

program Demo2;

uses System.SysUtils, Tid.GCObject.SmartPointer;

var
  p1: TSmartPointer???// Pointer 类型的智能指针
  p2: P<Integer>; // ^Integer 类型的智能指针
  p3: P<Double>; // ^Double 类型的智能指针
begin
  TGCObject.LocalBegin;
  p1 := TSmartPointer.Create(GetMemory(8)); // 传入一个 Pointer 类型的指针
  p2 := P<Integer>.Create(1314); // 传入一个 Integer 类型
  p3 := P<Double>.Create(13.14); // 传入一个 Double 类型
  p2 := P<Integer>.Create(GetMemory(4)); // 自动内存管理的变量可以重新赋值
                                         // 传入一个已有的指针
  p2.Value := 3;
  Writeln(p2.Value); // 通过 Value 属性访问指针指向的内容
  Writeln(Format('%p',[p1.Ptr])); // 通过 Ptr 属性访问其中的指针
  TGCObject.LocalEnd;
end.