Delphi 中的属性property

Delphi  中的属性property

 

Propery In Delphi

 

 

前言：

 

适合delphi初学者，有面向对象知识和java或者vc编程经验人士阅读。

 

一普通属性

 

  我们在delphi的类中常常能看到这样的代码：propert property 属性名 类型名 read 字符串1 write 字符串2

 

  这里属性的名字可能不同。都是这样的格式：property 属性名 read 字符串1 write 字符串2

 

  我以property Left: Integer read FLeft write SetLeft;为例子，它是Tcontrol的属性，你可以在controls文件中找到。Left是一个Integer类型的属性。Read申明了访问该变量要访问的变量或者方法，write申明了修改该变量时访问的变量或者方法。注意：可以是变量，也可以是方法，我在后面告诉大家这是怎么回事。这里它是一个变量，名字叫做FLeft。出于封装的目的，我们一般都会把这样的变量放在private中间去，果然，在private中我们可以找到FLeft: Integer这段代码（出于命名的习惯，我们把这样的变量取名为属性名前面加一个大写的F）。这样当你read该属性时，实际上你访问的是Fleft的值。所以你可以写些方法来修改fleft，间接修改了left的值。然后我们再看SetLeft，这里它是一个方法（问我怎么知道？还是看命名规则，通常用属性名前面加上Set），通常也会放在private中去，我们来验证一下，我们在private中看到申明：

 

  procedure SetLeft(Value: Integer);

 

和如下代码实现：

 

  procedure TControl.SetLeft(Value: Integer);

 

  begin

 

    SetBounds(Value, FTop, FWidth, FHeight);

 

    Include(FScalingFlags, sfLeft);

 

  end;

 

  如果你写了如下代码改变left：control1.left:=23,那么程序调用了函数SetLeft(23),SetBounds是改变区域的函数，这里你就明白了它封装了的好处，每次你改变left时它就会根据新的left而改变区域的大小，这个函数同时也改变了Fleft的大小，请查阅SetBounds的源代码。

 

  procedure TControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

 

  begin

 

    if CheckNewSize(AWidth, AHeight) and

 

      ((ALeft <> FLeft) or (ATop <> FTop) or

 

      (AWidth <> FWidth) or (AHeight <> FHeight)) then

 

    begin

 

      InvalidateControl(Visible, False);

 

      FLeft := ALeft;

 

      FTop := ATop;

 

      FWidth := AWidth;

 

      FHeight := AHeight;

 

      UpdateAnchorRules;

 

      Invalidate;

 

      Perform(WM_WINDOWPOSCHANGED, 0, 0);

 

      RequestAlign;

 

      if not (csLoading in ComponentState) then Resize;

 

    end;

 

  end;

 

 这样外部就看起来只是通过赋值运算来改变了该属性的值。Read和write可以是变量，或者是函数，取决于你的设计。