编写条件：
比如公式怎样选出在图中，中国工商银行前十名无限售条件股东中，有大于两个股东以上都是中国工商银行的股票。编写方法：
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;
