Delphi系列谈之:Delphi中的静态属性及静态方法的…

在学习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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有