[原创]对于类不能存取一种替代方案...大师来看看能不能把他简化一下 - 基础技术区 - KCDDP ADV综合创作站

sjmind

会员

UID 1025
精华 0
积分 106
帖子 30
阅读权限 5
注册 2008-6-4

#1

大中小

使用道具

发表于 2008-7-19 20:43 资料短消息加为好友

[原创]对于类不能存取一种替代方案...大师来看看能不能把他简化一下

写了2小时，基本没有大问题
把这里的类称为D类以和通常的类示以区别
D类实际上是一个特殊结构的Dictionary
必要的结构为

[Copy to clipboard] [ - ]

CODE:

用我写的例子（在first.ks调用前调用）：

[Copy to clipboard] [ - ]

CODE:

var DClass=
%[
Name:"DClass",
Value:0 ,
Array:[],
methods:%[]
];
DClass.methods=%[
Init:function (dc,elm=%[])
{
dc.Value=0;
dc.Array=[];
},
Add:function (dc,elm=%[value:0])
{
dc.Value++;
dc.Array.add(elm.value);
}
];

然后是驱动AfterInit.tjs：

[Copy to clipboard] [ - ]

CODE:

我给的样例的first.ks：

[Copy to clipboard] [ - ]

CODE:

使用没有问题，因为实例化的D类把数据完整的保留了，而成员函数实际上是通过注册D类时的函数实现的。
因而不会出现null的问题。
只不过个人觉得调用成员函数的写法有点丑，大师如果能改进的话，还请赐教

[ 本帖最后由 sjmind 于 2008-7-19 20:50 编辑 ]

sjmind

会员

UID 1025
精华 0
积分 106
帖子 30
阅读权限 5
注册 2008-6-4

#2

大中小

使用道具

发表于 2008-7-20 14:11 资料短消息加为好友

稍微简化了一下:
first.ks:

[Copy to clipboard] [ - ]

CODE:

RegClass.ks:

[Copy to clipboard] [ - ]

CODE:

@iscript
KAGLoadScript("dc_ItemList.tjs");
RegClass.ItemList=ItemList;
@endscript
@return

[Copy to clipboard] [ - ]

CODE:

@macro name=setupDClass
@eval exp=KAGLoadScript("DClassSys.tjs");
@endmacro

dc_ItemList.tjs:

[Copy to clipboard] [ - ]

CODE:

var ItemList=
%[
Name:"ItemList",
item:[],
count:0,
needsort:true,
methods:
%[
Init:function(dc)
{
dc.item=[];
dc.count=0;
},
Add:function(dc,value)
{
dc.item.add(value);
if (needsort)
dc.item.sort();
dc.count=dc.item.count;
}
]
];

内核DClassSys.tjs:

[Copy to clipboard] [ - ]

CODE:

[ 本帖最后由 sjmind 于 2008-7-20 14:43 编辑 ]

sjmind

会员

UID 1025
精华 0
积分 106
帖子 30
阅读权限 5
注册 2008-6-4

#3

大中小

使用道具

发表于 2008-7-20 14:43 资料短消息加为好友

这个做法可以携带类的继承特性:
以下是继承的写法:

[Copy to clipboard] [ - ]

CODE: