TClientDataSet过滤器是有限制的，还是一个bug？

Question

我使用TClientDataSet作为内存中的表，必须应用具有许多条件的筛选器。

例如，在400个OR条件下，当我尝试启用过滤器时，会出现访问冲突。

模块'midas.dll‘中地址4DAEDC 76的访问冲突。读取地址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; 

它是组件上的一个bug还是midas.dll的一个限制？我在midas的版本上测试了这种行为：>= 15和<= 23

我在用德尔菲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

我可以复制这个错误，包括在德尔福西雅图的“阅读地址00000034”。当过滤器表达式中有超过280个术语时，就会发生这种情况。这显然是侏儒的限制。您需要一种更好的方法来将问题域转换为所需的过滤器效果。

如果可以在代码中计算条件，那么我要做的就是向CDS中添加一个布尔fkInternalCalc字段，并根据结果将其设置为True of False。然后，过滤数据集是一个简单的问题，应用过滤器的基础上的布尔值。