过滤代码 例左斜1
代码:

XMGS(1,-1)

自定义函数
代码:
 

//斜码个数历史过滤
   function XMGS(qs,xs :integer):integer;
begin
result  :=incount(RA,[(hr1(qs)+(xs)),(hr2(qs)+(xs)),(hr3(qs)+(xs)),(hr4(qs)+(xs)),(hr5(qs)+(xs)),(hr6(qs)+(xs))]);
end;