- 积分
- 224
- 明经币
- 个
- 注册时间
- 2003-4-15
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|

楼主 |
发表于 2004-3-8 08:43:00
|
显示全部楼层
首先感谢两位的回复,不好意思,出差了一星期,不能上网了。
原吗如下(delphi 的)应该很简单。
pn1[0]:=100;pn1[1]:=137;pn1[2]:=0; pn2[0]:=0;pn2[1]:=0;pn2[2]:=0; actualCode:= VarArrayCreate([0,3],varInteger); actualValue:= VarArrayCreate([0,3],varVariant); actualCode[0] := -4 ; actualValue[0] := '<AND'; actualCode[1] := 0 ; actualValue[1] := 'TEXT'; actualCode[2] := 8; actualValue[2] := 'text'; actualCode[3] := -4 ; actualValue[3] := 'AND>'; groupcode := actualCode; groupValue := actualValue; tsset:= caddoc.SelectionSets.Add('test'); tsset.Select(1,pn1,pn2,groupcode,groupValue); |
|