如何在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;