endT:=20150130T;
//得到endT的所有A股市场股票代码
stocks:=getAbkbydate("A股",endT);
//getAbkbydate可从此处下载:FAQ:Q:如何得到历史A股 data:=array();
n:=0;
for i:=0 to length(stocks)-1 do
begin
stockid:=stocks[i];
setsysparam(pn_stock(),stockid);
//判断endt日,stockid是否被ST,0表示否,1表示该天被ST
if IsST_4(endt,endt)=0 then continue;
data[n]:=stockid;
n++;
end;
return data;
endT:=20150130T;
//得到endT的所有A股市场股票代码
stocks:=getAbkbydate("A股",endT);
data:=array();
n:=0;
for i:=0 to length(stocks)-1 do
begin
stockid:=stocks[i];
setsysparam(pn_stock(),stockid);
//判断endt日,stockid是否为ST,0表示否,1表示ST
if IsST_3(endt)=0 then continue;
data[n]:=stockid;
n++;
end;
return data;