delphi - 分配一种类型的指针并将其作为不同类型但大小相同的指针进行处理可以吗？

Question

可以分配一种类型的指针并将其处理为不同类型但大小相同吗？我的意思是这样的:

procedure TForm1.Button1Click(Sender: TObject);
var A:PInt64;   // 64bit
    P:Pointer;
    B:PDouble;  // 64bit
begin
  New(A);
  P:=A;
  B:=P;
  Dispose(B);
end;

假设我只想要 8、16、32、64 位有符号和无符号类型。还好吗？

Answer 1

如果指向的类型不是托管类型，那么这是安全的。就您而言， Int64 和 Double 都不是托管类型，因此这是安全的。

托管类型的示例是字符串、接口(interface)、变体、匿名过程/方法、包含托管类型的记录等。

当您在托管类型上使用 New 和 Dispose 时，必须初始化并最终确定该对象。当您在非托管类型上使用 New 和 Dispose 时，相当于调用 GetMem 和 FreeMem。

事实上，您不需要所指向的类型具有相同的大小。当调用 FreeMem 时，不会传递类型的大小。所指向的内存具有每个 block 的元数据，允许它释放整个 block 。