
等级: 标准版
- 注册:
- 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在屏幕上显示出来是一个数字,而不是代码
不知道哪里出了问题 |
|