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.
[系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序 [Delphi程序]为什么选择Delphi.Net ? [Delphi程序]《关于VisiBroker For Delphi的使用》(4) [Delphi程序]Delphi 程序员代码编写标准指南 [Delphi程序]转贴:Conversion to Delphi 6: Missing unit Pro… [Delphi程序]Borland Delphi 9 的新特性 [Delphi程序]Delphi 键盘码表 [Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗? [Delphi程序]Delphi Access violations 问题的解决之道
|