| 

 等级: 标准版 
注册: 2021-5-20曾用名:  | 
 
 
 楼主|
发表于 2023-2-24 17:09
|
显示全部楼层 
| //中间变量 VARIABLE:HAU31[10]:=('AL00','CU00','NI00','PB00','SN00','ZN00','RB00','HC00','I00','SS00');
 VARIABLE:HAU32[7]:=('JM00','J00','ZC00','SC00','FU00','LU00','PG00');
 VARIABLE:HAU33[14]:=('RU00','L00','V00','PP00','PTA00','MA00','BU00','SP00','EG00','EB00','SA00','NR00','UR00','PF00');
 VARIABLE:HAU34[15]:=('A00','C00','JD00','Y00','M00','CS00','P00','CF00','SR00','OI00','RM00','AP00','CJ00','LH00','PK00');
 VARIABLE:HAU35[6]:=('Y00','M00','RM00','OI00','P00','PK00');
 CODE:= STKLABEL();
 for i=1 to 10 do begin
 if STRICMP(HAU31[i] ,STKLABEL()) = 0 then CODE:='AU31';
 //if (HAU31[i] == STKLABEL(),'AU31',STKLABEL());
 end
 
 for i=1 to 7 do begin
 if STRICMP(HAU32[i] ,STKLABEL()) = 0 then CODE:='AU32';
 end
 
 for i=1 to 14 do begin
 if STRICMP(HAU33[i] ,STKLABEL()) = 0 then CODE:='AU33';
 end
 
 for i=1 to 15 do begin
 if STRICMP(HAU34[i] ,STKLABEL()) = 0 then CODE:='AU34';
 end
 
 for i=1 to 6 do begin
 if STRICMP(HAU35[i] ,STKLABEL()) = 0 then CODE:='AU35';
 end
 
 
 CCC:'CODE';
 
 
 
 以上这段代码,用来判断当前品种属于哪个行业指数,把代码赋值给code
 
 但是ccc在屏幕上显示出来是一个数字,而不是代码
 
 不知道哪里出了问题
 | 
 |