Delphi面向对象的属性

时间:2024-10-05 20:38:02

  可以把属性看成是能对类中的数据进行修改和执行代码的特殊的辅助域。对于组件来说,属性就是列在Object Inspector窗口的内容。下面的例子定义了一个有属性的简单对象

TMyObject = class
private
SomeValue: Integer;
procedure SetSomeValue(AValue: Integer);
public
property Value: Integer read SomeValue write SetSomeValue;
end; procedure TMyObject.SetSomeValue(AValue: Integer);
begin
if SomeValue <> AValue then
SomeValue := AValue;
end;

  TMyObject是一个包含下列内容的对象:一个域(被称为是SomeValue的整型数)、一个方法(被称为是SetSomeValue的过程)和一个被称为是Value的属性

  SetSomeValue过程的功能是对SomeValue域赋值,Value属性实际上不包含任何数据。Value是SomeValue域的辅助域,当想得到Value中的值时,它就从SomeValue读值,当试图对Value属性设置值的时候,Value就调用SetSomeValue对SomeValue设置值。

  这样的好处有两个:

1)首先,通过一个简单变量就使得外部代码可以访问对象的数据,而不需要知道对象的实现细节

2)其次,在派生类中可以覆盖诸如SetSomeVale的方法以实现多态性