ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Delphi系列谈之:Delphi中的静态属性及静态方法的实现 (转)

Delphi系列谈之:Delphi中的静态属性及静态方法的实现 (转)

原创 Linux操作系统 作者:worldblog 时间:2007-12-12 11:14:03 0 删除 编辑
Delphi系列谈之:Delphi中的静态属性及静态方法的实现 (转)[@more@]

  在学习Delphi时常有些心得,在此写出来,供大家参考,如有错误或不妥之处还望指教.

  使用过c++的人都知道在c++的类中有静态属性及静态方法,为程序设计带来很多方便.那么在Delphi中静态属性及静态方法是怎么实现的呢?请看下面的实例:

unit Unit2;

interface

type
  TMyClass = Class
  public
  {静态过程:设置静态属性的值}
  class procedure SetStaticMemberValue(AString: string);
  {静态函数:读取静态属性的值}
  class function GetStaticMemberValue: string;
  end;

implementation
{在此声明静态属性,这一点与c++有很大的不同}
var
  AStaticMember: string;

class function TMyClass.GetStaticMemberValue: string;
begin
  Result := AStaticMember;
end;

class procedure TMyClass.SetStaticMemberValue(AString: string);
begin
  AStaticMember := AString;
end;

end.

  那么在TMyClass中声明的属性及方法是否是静态属性或静态方法呢?请看下面的实例:

...
uses unit2
...

procedure TForm1.Button2Click(Sender: Tobject);
begin
  {不需声明TMyClass的实例,可直接设置及读取静态属性的值}
  TMyClass.SetStaticMemberValue('MyClass');
  showmessage(TMyClass.GetStaticMemberValue);
end;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-991838/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2411036