易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi中实现C++/Java类似静态变量的功能

在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类,通过类方法即可访问此类的对象数
//=========================================
unit StaticVarTestU;
interface
type
TStaticVarClass = class
public
//constructor
constructor Create();
destructor Destroy; override;
//类方法,取得对象的计数
class function ObjectCount: integer;
protected
private

end;
implementation
Var
LObjCount: integer;
{ TStaticVarClass }
constructor TStaticVarClass.Create;
begin
inc(LObjCount); //使用局部变量
end;
destructor TStaticVarClass.Destroy;
begin
dec(LObjCount); //使用局部变量

inherited;
end;
class function TStaticVarClass.ObjectCount: integer;
begin
Result := LObjCount; //返回局部变量
end;
initialization
LObjCount := 0; //初始化
finalization
LObjCount := 0;
end.
//=========================================
// StaticTest - 测试代码,创建10个对象,并访问其计数,再Free掉.
//=========================================
program StaticTest;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
StaticVarTestU in StaticVarTestU.pas;
procedure printObjCount;
begin
WriteLn(Format(The Object Count now is %d, [TStaticVarClass.ObjectCount]));
end;
var
i: integer;
mObjList: TList;
begin
{ TODO -oUser -cConsole Main : Insert code here }
mObjList := TList.Create;
printObjCount;
for i := 0 to 10 do
begin
mObjList.Add(TStaticVarClass.Create());
printObjCount;
end;
for i := 0 to mObjList.Count -1 do
begin
TStaticVarClass(mObjList.Items[i]).Free;
printObjCount;
end;
mObjList.Free;
readln;
end.


相关文档:

Lombok 消除Java的冗长


  Lombok是一个开源项目,可以用来消除Java代码的冗长
  详细介绍参看http://www.ibm.com/developerworks/opensource/library/os-lombok/index.html
  下面介绍Lombok如何消除Java代码的冗长。
1.      首先去http://projectlombok.org/. 下载lombok.jar 包
2.  & ......

给大家写一个java的简单的栈


import  java.util.*;
public class stack
{
         private List list=new ArrayList();
         private int index=0;
        public void push(Object obj)
   & ......

超简单程序99乘法表(java)

public class chengfa {
 public static void main(String[] args)
 {
  model md=new model();
  
  md.method();
  
  
 }
}
class model
{
 public int count=0;
 public int[]b=new int[100];
 
 public void me ......

Java 设计架构


目录
摘要 ……………………………………………………………………2
文献综述 ……………………&h ......

java动态代理

 
动态代理是指客户通过代理类来调用其它对象的方法
动态代理使用场合:

远程方法调用(RMI)

 
1.创建一个实现接口InvocationHandler的类,它必须实现invoke方法
2.创建被代理的类以及接口
3.通过Proxy的静态方法
newProxyInstance(ClassLoader loader, Class[] interfaces, Invocat ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号