自从我在Delphi中进行任何编程以来已经有一段时间了,我正在寻找一些关于如何通过在编辑框中键入搜索词来逐步搜索dbgrid的示例,我发现以下代码似乎是大多数情况下的技巧,但它检查网格中每一列的过滤条件,我想限制过滤条件,因此它只检查网格中的一列(例如第1列),我该怎么做呢提供的代码?
procedure TForm1.Edit1Change(Sender: TObject);
begin
FDTable1.Filtered := false;
FDTable1.Filtered := Edit1.Text <> '';
end;
procedure TForm1.FDTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var
i: integer;
begin
for i := 0 to DataSet.FieldCount - 1 do begin
Accept := Pos(UpperCase(Edit1.Text),
UpperCase(DataSet.Fields[i].AsString)) = 1;
if Accept then exit;
end;
end;