delphi - 我可以访问 TBits 内部位图吗？

Question

特别是，我想预设所需的大小，从外部源获取位图，然后以优雅面向对象的方式处理数据。

我猜是什么

1. TBits 不仅仅是 bool 值的简单集合
2. 内部存储是连续的。

我的这种假设正确吗？

Answer 1

1. 正确，TBits 是内部位结构的，因此它不是简单的 bool 值集合。
2. 是的，存储是通过分配足够大的连续内存来处理大小(以 SizeOf(integer) 为增量)的。

要访问内部数据指针，可以使用类助手。

Type
  TBitsHelper = class helper for TBits
    private
      function GetBitsPointer: Pointer;
    public
      property BitsPt: pointer read GetBitsPointer;
  end;

function TBitsHelper.GetBitsPointer: Pointer;
begin
  with Self do Result := FBits;  
end;