当前位置: 爱约股 > 大智慧答疑 > > 选出股票前十名无限售条件股东中 ，有两个以上为同一家机构
选出股票前十名无限售条件股东中 ，有两个以上为同一家机构
来源：Internet，编辑：爱约股，2012-09-11
编写要求：
比如公式怎样选出在图中，中国工商银行前十名无限售条件股东中，有大于两个股东以上都是中国工商银行的股票。
爱约股解答：
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;
