Class Demo

最新推荐文章于 2021-03-30 11:15:40 发布

seagull327

最新推荐文章于 2021-03-30 11:15:40 发布

阅读量874

点赞数

分类专栏： OOP 类类型

本文链接：https://blog.csdn.net/haiou327/article/details/8485056

版权

类类型同时被 2 个专栏收录

34 篇文章 0 订阅

订阅专栏

OOP

24 篇文章 0 订阅

订阅专栏

 TmyCls=class
 private
   i:integer;
   s:TStrings;
 public
   procedure abc;
   end;
var
  Form1: TForm1;

implementation
{$R *.dfm}
 procedure TmyCls.abc;
 begin

 end;
procedure TForm1.Button1Click(Sender: TObject);
var
mCls:TmyCls;
begin
  Memo1.Clear;
  mCls:=TmyCls.Create;
  Memo1.Lines.Add('mCl对象  大         小：'+inttostr(mCls.InstanceSize));
  Memo1.Lines.Add('mCls对象 所在地址：'+inttostr(Integer(mCls)));
  Memo1.Lines.Add('mCls对象成员i地址：'+inttostr(Integer(@mCls.i)));
  Memo1.Lines.Add('mCls对象成员s地址：'+inttostr(Integer(@mCls.s)));
  FreeAndNil(mCls);
end;