1 TMyDemo = class(TObject) 2 FName: string; {数据成员(Field)} 3 FAge: Integer; 4 private {私有的} {最为隐秘的访问程度} 5 procedure SetAge(Value: Integer); 6 protected {受保护的} {中等程度的访问能力} 7 procedure IAmAStatic; {静态方法} 8 procedure IAmAVirtual; virtual; {虚方法} 9 procedure IAmADynamic; dynamic; {动态方法} 10 procedure IAmAVirtualAbstract; virtual; abstract; {抽象虚方法} 11 public {共有的} {最大程度的访问能力} 12 constructor Create; {构造方法(函数)} 13 destructor Destroy; {析构方法(函数)} 14 class procedure ShowTest; {类方法<方法前加class>} 15 procedure Test_1; {过程} 16 function Test_2: Integer; {函数} 17 procedure WMChar(var message: TWMChar); message WM_CHAR; {消息处理方法} 18 published {公布的} {最大程度的访问能力} {可见属性} 19 property Name: string read FName write FName; {属性(property)} 20 property Age: Integer read FAge write SetAge; {属性(property)} 21 property Coms stored False; // 默认值<待测试> 22 automated {自动的} 23 // 基本不用 24 end;