 
等级: 超级版主
- 注册:
- 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 |
|