如何在Query中做增量查询

如何在Query中做增量查询 为了在一个表中做增量查询，必须在TEdit的OnChange事件中添加下列代码：
procedure TForm1.Edit1Change(Sender: TObject);
begin
　With Edit1 do
　　if Text <> '' then
begin
　　　Query1.Filter:='code='''+Edit1.Text+'''';
　　　Query1.FindFirst;
　　end;
end;
另一种方法是：
procedure TForm1.Edit1Change(Sender: TObject);
begin
　With Edit1 do
　　if Text<> '' then
　　　Query1.Locate('code',Edit1.Text,[loPartialKey]);
end;