如何使用类的地址和变量的偏移量来访问类 var 的值？

Question

我需要使用类的实例和变量的偏移量来访问类的严格私有类 var 值。

到目前为止尝试过这个，检查这个示例类

type
  TFoo=class
   strict private class var Foo: Integer;
   public
   constructor Create;
  end;

constructor TFoo.Create;
begin
  inherited;
  Foo:=666;
end;

//this function works only if I declare the foo var as 
//strict private var Foo: Integer;
function GetFooValue(const AClass: TFoo): Integer;
begin
  Result := PInteger(PByte(AClass) + 4)^
end;

正如你所看到的，函数 GetFooValue 仅当 foo 变量没有像类 var 那样声明时才起作用。

问题是我必须如何修改 GetFooValue 才能在声明为 strict private class var Foo: Integer; 时获取 Foo 的值

Answer 1

要访问严格的私有类变量，可以使用 Class Helper 来救援。

示例：

type
  TFoo = class
  strict private class var
    Foo : Integer;
  end;

  TFooHelper = class helper for TFoo
  private
    function GetFooValue : Integer;
  public
    property FooValue : Integer read GetFooValue;
  end;

function TFooHelper.GetFooValue : Integer;
begin
  Result:= Self.Foo;  // Access the org class with Self
end;

function GetFooValue( F : TFoo) : Integer;
begin
  Result:= F.GetFooValue;
end;

Var f : TFoo;//don't need to instantiate since we only access class methods

begin
  WriteLn(GetFooValue(f));
  ReadLn;
end.

更新了示例以适应问题。

Answer 2

你确实不能那样做。类 var 被实现为全局变量，并且它的内存位置与类 VMT 的位置（类引用指向的内容）没有任何可预测的关系，类 VMT 位于 <进程内存的常量数据区域。

如果您需要从类外部访问此变量，请声明一个将其引用为支持字段的类属性。