我正在使用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
我正在使用德尔福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 语句,但出现相同的错误。
我没有在互联网上找到有关这种情况的参考资料。
我可以重现此错误,包括德尔福西雅图的"读取地址00000034"。当 Filter 表达式中的术语超过 280 个时,就会发生这种情况。 它显然是迈达斯的限制。 您需要一种更好的方法来从问题域进行翻译达到过滤器的所需效果。
如果你可以在代码中评估你的条件,那么我要做的是添加CDS 的布尔值 fkInternalCalc 字段,并将其设置为 True of False取决于结果。然后,过滤数据集是一件简单的事情根据布尔值应用过滤器。