一个问题我不明白,请大家帮忙解答!

Question

Type
   TClndar=class
          Year,Month,Day:Integer;
          Property Text:string read GetText;
          Procedure SetValue(y,m,d:Integer);
          Function Leapyear:Boolean;
End;在这个类的声明中Property Text:string read GetText;这行string read GetText
是什么意思?它说明了Text是什么属性?Type
  TListColumns = class(TCollection)
  private
       ......
 protected
      function GetOwner:TPersistent;override;
      ......
 public
      constructor Create(AOwner:TCustomListView);
      property Items[Index:Integer]:TListColumn read GetItem write 
               SetItem;default;
end;1.在这段代码中function GetOwner:TPersistent;override;这行中override是什么意思?2.constructor Create(AOwner:TCustomListView);是不是这个类的对象的构造函数一样的函数呀?3.property Items[Index:Integer]:TListColumn read GetItem write 
               SetItem;default;
在这行中TListColumn read GetItem write SetItem;default;每一个都分别代表什么意思?

Answer 1

1、override标志表示这个方法是重载父类的
2、构造函数通常从父类继承，基本的都一样，再添加一些自己特有的东西
3、这行定义ITEMS为一个属性read GetItem表示该属性从GetItem（方法）取值
同理，该属性通过SetItem写（write）值
default后面定义该属性的默认值

Answer 2

同意楼上，不过我觉得override是覆盖而不是重载。（也许我记错了？）

Answer 3

jan2002(阿吉) 、 l_xiaofeng(≈流水≈不腐≈) 上面还有一个问题那！

Answer 4

是不是要有GetItem,SetItem方法的具体实现那?

Answer 5

Property Text:string read GetText;
它说明Text这个属性，类型为String,当你用TClndar.Text来取Text属性的值时，它将执行GetText这个函数来返回Text的值

Answer 6

是不是要有GetItem,SetItem方法的具体实现那?
当然要