unit1.pas

Delphi高手突破源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    lst_rs: TListBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses clsinherit;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    Obj : TDerived2;
begin
    Obj := TDerived2.Create();

    with lst_rs.Items do
    begin
        Add('对象大小：' + IntToStr(Obj.InstanceSize));
        Add('对象首地址：' + IntToStr(Integer(Obj)));
        Add('TBase 成员首地址：' + IntToStr(Integer(@Obj.FBaseMember1)));
        Add('TDerived 扩展成员(FDerivedMember)首地址：' + IntToStr(Integer(@Obj.FDerivedMember)));
        Add('TDerived2 扩展成员(FDerived2Member1)首地址：' + IntToStr(Integer(@Obj.FDerived2Member1)));
    end;

    Obj.Free();
end;

end.