随笔分类 -  delphi面向对象编程

摘要：一， 示例一，理解对象的引用：我们要搞清楚进行对象赋值的两个不同概念，其一，是使用赋值操作符（：=）将一个对象的引用赋值给一个对象变量，产生的效果是这两个变量指向的是同一个对象。其二，使用Assign或AssignTo方法可以将对象属性进行复制，得到两个状态完全一样的两个对象。View Code unitUnit2;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm2=class(TForm)BtnSet:TButton;dlgFon 阅读全文

摘要：第一个类View Code unitTMan;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)btn1:TButton;private{Privatedeclarations}public{Publicdeclarations}end;TMans=class(TObject)privateFAge:Integer;//字段数据成员procedureSetAge(value:Integer);//私有的成员 阅读全文