也可以做成自定义数据，具体怎么发挥看自己了。

a1:=0;IF PFFIN(4251,0)>0 Then begin a1:=PFFIN(4251,0);

end;

a:=a1;

大股东比率:=IF(PFFIN(4003,0)>5 and STRFIND(PFSTR(4006,0),'A',1)>2,PFFIN(4003,0),0);

二股东比率:=IF(PFFIN(4013,0)>5 and STRFIND(PFSTR(4016,0),'A',1)>2,PFFIN(4013,0),0);

三股东比率:=IF(PFFIN(4023,0)>5 and STRFIND(PFSTR(4026,0),'A',1)>2,PFFIN(4023,0),0);

四股东比率:=IF(PFFIN(4033,0)>5 and STRFIND(PFSTR(4036,0),'A',1)>2,PFFIN(4033,0),0);

五股东比率:=IF(PFFIN(4043,0)>5 and STRFIND(PFSTR(4046,0),'A',1)>2,PFFIN(4043,0),0);

六股东比率:=IF(PFFIN(4053,0)>5 and STRFIND(PFSTR(4056,0),'A',1)>2,PFFIN(4053,0),0);

七股东比率:=IF(PFFIN(4063,0)>5 and STRFIND(PFSTR(4066,0),'A',1)>2,PFFIN(4063,0),0);

八股东比率:=IF(PFFIN(4073,0)>5 and STRFIND(PFSTR(4076,0),'A',1)>2,PFFIN(4073,0),0);

九股东比率:=IF(PFFIN(4083,0)>5 and STRFIND(PFSTR(4086,0),'A',1)>2,PFFIN(4083,0),0);

十股东比率:=IF(PFFIN(4093,0)>5 and STRFIND(PFSTR(4096,0),'A',1)>2,PFFIN(4093,0),0);

流通系数:(100-大股东比率-二股东比率-三股东比率-四股东比率-五股东比率-六股东比率-七股东比率-八股东比率-九股东比率-十股东比率)/100,LINETHICK0;

实际流通盘:=流通系数*CAPITAL/100;