主题：怎样用程序表述:股票dm符合XG条件。

flxy='A.XG';

BK:='深圳创业';

ss:=STKCOUNT(BK);

VARIABLE:result[ss]:='',i=0;

INITBOUND(result,'');

if ISLASTBAR then

begin

  for k=1 to ss do

  begin

  dm:=STKFROMBLK(BK,k);

  XG:=STKINDI(dm,flxy,0,6,0);

  if xg then begin

  i:=i+1;

  result[i]:=dm;

  MSGOUT(1,dm);

  end

  end

end

数量：i ;