摘要:
第一个类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);//私有的成员 阅读全文