Delphi 类的静态属性

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

Because Delphi not provide static member for our using, so if you want a static

member of class in Delphi what should I do ?

Ok! At least there are three ways to implement this.

1,Using private global variant(in implement section of unit),but there are a lit

visibility scope in project or unit.

2,Using global variant, a more visibility scope in project or unit.a lit same as

above.

3,Using typed constant,just using compiler directive $J+ or Project properties

|compiler Option Typed constant.

There are some simple source code as follows:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TStaticMemberObject = class

private

class procedure SetName(const Value: string);

class function GetName: string;

class function StaticMethod(ReadFlag: boolean; var Value: string):boolean;

published

property Name: string read GetName write SetName;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TStaticMemberObject }

class function TStaticMemberObject.StaticMethod(ReadFlag: boolean;

var Value: string): boolean;

const static: string = '';

begin

result := True;

if ReadFlag then

Value := static

else

static := value;

end;

class function TStaticMemberObject.GetName: string;

var

Value: string;

begin

StaticMethod(true, Value);

result := Value;

end;

class procedure TStaticMemberObject.SetName(const Value: string);

var

setvalue: string;

begin

setvalue := Value;

StaticMethod(false, setvalue);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

so: TStaticMemberObject;

begin

so.Name := 'Hello, my static property!';

ShowMessage(so.Name);

so.SetName('hi, my static property!');

ShowMessage(so.GetName);

end;

end.

Please pay attention to the class method used here. The Name property's modifiers

both use class method. In fact if you use normal static method with no class

directive the code still works well. like this:

procedure SetName(const Value: string);

function GetName: string;

Because we do not access other fields and other instance methods of this

TStaticMemberObject class or some object of TStaticMemberObject type, so there is

no AV using normal static method.

OK, if you need this trick just try it.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航