请教老师

银杏树

麻烦老师给我写一个循环语句FOR VAR=N1 TO N2 DO EXPR和控制语句IF COND THEN EXPR1 ELSE EXPR2的使用具体案列好吗？我要看看这两个语句是怎么写的，谢谢！

技术010

//用于统计当天新开品种数量和新开品种超3%盈利的品种数量
IF ISLASTBAR THEN  BEGIN
   TH:=THOLDCOUNT('');
   TEMP_STR:='';
   TEMP_STR1:='';
   J:=0;
   K:=0;
   N:=0;
   P:=0;
   FOR I=1 TO TH DO BEGIN
     HLABEL:=THOLDINDEXLABEL(I,'');
     IF STRFIND(TEMP_STR,','&HLABEL,1)=0 AND TBUYHOLDINGEX('',HLABEL,2)-TBUYHOLDINGEX('',HLABEL,0)=0 AND TSELLHOLDINGEX('',HLABEL,2)-TSELLHOLDINGEX('',HLABEL,0)=0 THEN BEGIN
        TEMP_STR:=STRCAT(TEMP_STR,','&HLABEL);
        J:=J+1;
        IF TBUYHOLDINGEX('',HLABEL,2)>0  AND (DYNAINFO2(7,HLABEL)-TAVGENTERPRICEEX2('',HLABEL,0))/TAVGENTERPRICEEX2('',HLABEL,0)>=0.05 THEN
           K:=K+1;
        IF TSELLHOLDINGEX('',HLABEL,2)>0  AND (TAVGENTERPRICEEX2('',HLABEL,0)-DYNAINFO2(7,HLABEL))/TAVGENTERPRICEEX2('',HLABEL,0)>=0.05 THEN
           K:=K+1;
        END        
     IF STRFIND(TEMP_STR1,','&HLABEL,1)=0 THEN BEGIN
             TEMP_STR:=STRCAT(TEMP_STR1,','&HLABEL);
             N:=N+1;
             IF TBUYHOLDINGEX('',HLABEL,2)>0 AND (DYNAINFO2(7,HLABEL)-TAVGENTERPRICEEX2('',HLABEL,0))/TAVGENTERPRICEEX2('',HLABEL,0)>=0.3 THEN
                P:=P+1;
             IF TSELLHOLDINGEX('',HLABEL,2)>0  AND (TAVGENTERPRICEEX2('',HLABEL,0)-DYNAINFO2(7,HLABEL))/TAVGENTERPRICEEX2('',HLABEL,0)>=0.3 THEN
                P:=P+1;
             END
     END
   EXTGBDATASET('当天日期',DATE);
   EXTGBDATASET('当天新品数',J);
   EXTGBDATASET('当天盈利新品数',K);
   EXTGBDATASET('品种数',N);
   EXTGBDATASET('盈利品种数',P);
   END

银杏树

谢谢