主题：求全局变量的编程示例

//时间用的商品做例子，如对中金所自己修改下时间那边即可。账户组用的TA这个用户自己做修改

//平仓条件中的2和4未写，不太明白你这不满足平仓条件然后平仓的意思。

//范例仅供参考，具体使用时客户还请先经一番测试

CloseDay:=callstock('',vtopen,6,0);
KD:=close-CLOSEDAY>30*MINDIFF;
PD:=CLOSEDAY-close>10*MINDIFF;
lot:=10;
GLOBALVARIABLE:KDNUM=0,KDTIMES=0;//num表示开多手数，times表示开多次数

if KD and DYNAINFO(207)<185500 and KDNUM<11 and KDTIMES<3 THEN
begin
tbuy(1,lot-TBUYHOLDING(1),lmt,DYNAINFO(7)-3*MINDIFF,0,'TA','');
KDTIMES:=KDTIMES+1;
KDNUM:=KDNUM+TENTERVOL;
end

if KD and DYNAINFO(207)>185500 and KDNUM<11 and KDTIMES<3 THEN
begin
tbuy(1,lot*0.5-TBUYHOLDING(1),lmt,DYNAINFO(7)-3*MINDIFF,0,'TA','');
KDTIMES:=KDTIMES+1;
KDNUM:=KDNUM+TENTERVOL;
end

if close>TENTERPRICE+10*MINDIFF or DYNAINFO(207)>185700 then
BEGIN
TCANCELex(1,1,'','');
tbuy(DYNAINFO(207)<185500,lot-TBUYHOLDING(1),mkt,0,0,'TA','');
tbuy(DYNAINFO(207)>185500,0.5*lot-TBUYHOLDING(1),mkt,0,0,'TA','');
end

if PD THEN
tsell(1,tbuyholding(1),lmt,DYNAINFO(7)+3*MINDIFF,0,'TA','');