复制内容到剪贴板
代码:
bk:='A股板块'; //bk赋值为字符串'A股板块'
stksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[stksum]=''; //定义一个字符串数组用于记录股票代码,元素个数为stksum,初始值为空
for k=1 to stksum do //以下循环,循环计数器k从1开始每次递增1,直到stksum
begin
dm:=stkfromblk(bk,k);//板块bk中第k只证券的证券代码,赋值到字符串变量dm
dmstr[k]:=dm; //股票代码,记录到字符串数组dmstr的第k个元素中
end;
//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]); //在解盘中,输出深圳A股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,bk+'第4只股票的代码是:'+dmstr[4]);
EXPLAIN(1,stkname+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,bk+'共有股票:'+numtostr(stksum,0)+'只');