DELPHI类声明方式简介

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