DELPHI类声明方式简介

时间：2023-03-08 20:10:24
 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;

相关文章