- 精华
- 20
- 在线时间
- 2981 小时
- UID
- 4
- 积分
- 22709
- 帖子
- 4802
- 阅读权限
- 255
- 注册时间
- 2007-7-20
- 最后登录
- 2024-1-15
- 精华
- 20
- UID
- 4
- 积分
- 22709
- 帖子
- 4802
- 主题
- 64
- 阅读权限
- 255
- 注册时间
- 2007-7-20
- 最后登录
- 2024-1-15
|
新建用户函数,Filter,返回值为数值型
- Params
- Bool Condition(false);
- Numeric Length(10);
- Vars
- BoolSeries NewCon;
- Bool bFilter(False);
- Numeric i;
- Numeric nRe(0);
- Begin
- For i=1 To Length
- {
- If(NewCon[i])
- {
- bFilter = True;
- Break;
- }
- }
- If(Condition && bFilter==False)
- {
- nRe = 1;
- NewCon = true;
- }Else
- {
- nRe = 0;
- NewCon = false;
- }
- Return nRe;
- End
复制代码 |
|