Delphi 类与对象内存结构浅析(附件2)

*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
    TMyObject = class(TObject)
    private
        FField1: Integer;
        FField2: string;
        FField3: array[0..2] of Integer;
    published
        Button1: TButton;
        Memo1: TMemo;
        Label1: TLabel;
    end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
    AObject: TMyObject;
    //---
    procedure _ShowDMTInfo(ALines: TStrings; AClass: TClass);
    var
        AClassAddress,AFTAddress: Integer;
        AFieldCount,AFieldIndex,AFieldOffset,AFieldNameLen: Integer;
        APos,i: Integer;
        AFieldName: ShortString;
    begin
        AClassAddress := Integer(AClass);
        with ALines do
        begin
            Add(Format('类名: %s ', [AClass.ClassName]));
            //---
            AFTAddress := Integer(PPointer(AClassAddress + vmtFieldTable)^);
            if AFTAddress = 0 then
       &n