hand:=1 ;
if KD1 and EXTGBDATA(STKLABEL&'KD1')=0 then begin
Tbuy(1,hand,MKT),ORDERQUEUE;
EXTGBDATASET(STKLABEL&'KD1',1);
end
if PD1 and pd1<>kd1 and EXTGBDATA(STKLABEL&'KD1')>0 then begin
TSell( 1,hand,MKT),ORDERQUEUE;
EXTGBDATASET(STKLABEL&'KD1',0);
end
if kk1 and EXTGBDATA(STKLABEL&'KK1')=0 then begin
TBUYSHORT(1,hand,MKT),ORDERQUEUE;
EXTGBDATASET(STKLABEL&'KK1',1);
end
if PK1 and KK1<>PK1 and EXTGBDATA(STKLABEL&'KK1')>0 then begin
TSellSHORT( 1,hand,MKT),ORDERQUEUE;
EXTGBDATASET(STKLABEL&'KK1',0);
end
语法上没有错误