模糊查询
1、设置属性
DropDownListStyle := lsEditList;
2、修改单元 cxCustomData.pas
3、修改单元 cxLookupEdit.pas
function TcxCustomLookupEditLookupData.Locate(var AText, ATail: string; ANext: Boolean): Boolean;
491 行
1、设置属性
DropDownListStyle := lsEditList;
2、修改单元 cxCustomData.pas
11094行
function TcxCustomDataController.DoIncrementalFilterRecord(ARecordIndex: Integer): Boolean;
var
S: string;
begin
S := GetInternalDisplayText(ARecordIndex, FIncrementalFilterField);
//Result := DataCompareText(S, FIncrementalFilterText, True);//原来的
Result := AnsiContainsText(S, FIncrementalFilterText);//修改后的 要引用 StrUtils 单元
end;3、修改单元 cxLookupEdit.pas
function TcxCustomLookupEditLookupData.Locate(var AText, ATail: string; ANext: Boolean): Boolean;
491 行
ARecordIndex := Properties.FindByText(AItemIndex, AText, True);
//if ARecordIndex <> -1 then//原
if False then//修改后的
本文介绍了一种在Delphi中实现模糊查询的方法,通过修改cxCustomData.pas和cxLookupEdit.pas单元文件中的代码来实现更为灵活的增量过滤功能。
1245

被折叠的 条评论
为什么被折叠?



