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

附件资料
*类的内存信息（代码）
示例：获取类信息
说明：比对通过类地址以及通过类方法获取信息的效果。
代码：
type
    TMyObject = class(TObject)
    private
        FData: Integer;
    protected
        procedure Test1;virtual;
        procedure Test2;dynamic;
    public
        procedure Test;
    published
        procedure Test3;
    end;
 
procedure TMyObject.Test;
var
    i:Integer;
begin
    ShowMessage('静态方法');
end;
 
procedure TMyObject.Test1;
begin
    ShowMessage('虚方法');
end;
 
procedure TMyObject.Test2;
begin
    ShowMessage('动态方法');
end;
 
procedure TMyObject.Test3;
begin
    ShowMessage('published方法');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
    //---
    {procedure _ShowClassInfo(ALines: TStrings; AClass: TClass);
    begin
        with ALines do
        begin
            Add(Format('类指针地址: %d ', [Integer(AClass)]));
            //---
            if AClass.ClassParent = nil then
                Add('父类名: Nil')
            else
                Add(Format('父类名: %s', [AClass.ClassParent.ClassName]));