| 
 
 等级: 超级版主 
注册: 2021-5-18曾用名: gxx978 | 
| 参考这个范例,满足条件了用exit退出循环。 STR1:=STRTRIMRIGHT(STKLABEL, '0123456789');
 STR2:=IF(STRLEN(STR1)=3,STRLEFT(STR1,2),IF((STRLEN(STR1)=2 AND (STRRIGHT(STR1,1)='X' OR STRRIGHT(STR1,1)='Y')),STRLEFT(STR1,1),STR1));  //取品种简码
 
 TH1:=THOLDCOUNT('');
 TEMP_STR1:='';
 FOR I=1 TO TH1 DO BEGIN
 HLABEL:=THOLDINDEXLABEL(I,'');
 MTR1:=STRTRIMRIGHT(HLABEL, '0123456789');
 MTR2:=STRREMOVE(MTR1,0,2);
 MTR3:=IF(STRLEN(MTR2)=3,STRLEFT(MTR2,2),IF((STRLEN(MTR2)=2 AND (STRRIGHT(MTR2,1)='X' OR STRRIGHT(MTR2,1)='Y')),STRLEFT(MTR2,1),MTR2));
 IF STRCMP(STR2,MTR3)=0  THEN BEGIN
 TEMP_STR1:=HLABEL;
 EXIT;                //在账户栏中找到当前的品种了,就结束循环退出
 END
 END
 | 
 |