TClientDataSet过滤器是否有限制,还是一个bug？

Question

我使用a TClientDataSet作为内存表,必须应用具有很多条件的过滤器.

例如,在400 OR条件下,当我尝试启用过滤器时,我收到了访问冲突.

模块'midas.dll'中地址为4DAEDC76的访问冲突.读取地址00000034.

此处发生异常:

procedure TCustomClientDataSet.AddExprFilter(const Expr: Widestring; Options: TFilterOptions); 
begin 
  if FExprFilter <> nil then FDSCursor.DropFilter(FExprFilter); 
  if Expr <> '' then 
  with TExprParser.Create(Self, Expr, Options, [poExtSyntax], '', nil, FieldTypeMap, True) do 
    try 
      CheckProviderEOF; 
      Check(FDSCursor.AddFilter(FilterData, DataSize, FExprFilter)); // ** AV HERE
    finally 
      Free; 
    end; 
end; 

它是组件上的错误还是midas.dll的限制？我在这些midas版本上测试了这种行为:> = 15且<= 23

我正在使用Delphi XE.示例代码:

procedure TForm41.Button1Click(Sender: TObject);
var
  I: Integer;
  FilterStr: string;
begin
  FilterStr := '(vehicleId = -1)';
  //It is just an example, the original code I can have any integer number.
  for I := 0 to 400 do //If I change the limit value to 40 for example, it works. 
    FilterStr := FilterStr + ' or (vehicleId = ' + IntToStr(I) + ')';

  ClientDataSet1.Filter := FilterStr;
  ClientDataSet1.Filtered := True;
  ClientDataSet1.CreateDataSet; //Error here
end;

我已经尝试过使用IN语句,但是我得到了同样的错误.

我没有在互联网上找到有关这种情况的参考资料.

Answer 1

我可以重现这个错误,包括Delphi Seattle中的"读取地址00000034".当Filter表达式中有超过280个术语时,就会发生这种情况.这显然是一个midas限制.您需要一种更好的方法,从问题域转换到过滤器的预期效果.

如果您可以在代码中评估您的条件,那么我要做的是向CDS添加一个布尔值fkInternalCalc字段,并根据结果将其设置为True of False.然后,过滤数据集是一个简单的问题,即根据布尔值应用过滤器.