选出股票前十名无限售条件股东中 ，有两个以上为同一家机构
股友答疑 >> 选出股票前十名无限售条件股东中 ，有两个以上为同一家机构 >> 【您对使用股票程序选股有兴趣？要做自己想要的选股方法？加订阅号一起探讨吧！】
编写要求：
比如公式怎样选出在图中，中国工商银行前十名无限售条件股东中，有大于两个股东以上都是中国工商银行的股票。
11q.cn解答：
su:=0;
if dispstatus=2 then begin
for i=1 to 10-1 do begin
for j=i+1 to 10 do begin
if strcmp(strleft(pfstr(4001+(i-1)*10,0),8),strleft(pfstr(4001+(j-1)*10,0),8))=0 then begin
su:=su+1;
end;
end;
end;
end;
两家以上同机构:su>0;
