Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
Delphi 类的静态属性

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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.




相关文章

相关软件