Best Regards

Bojan Huljev

How to implement 'incremental search' depends on the component set
(BDE/IBX/IBO/...) you're using.  I've done this with the IBO components, but not
with any of the other ones.

Thank you for response. Can you give me idea or any tip how you did it with
IBO components.
Thank you in advance!

Bojan Huljev

IBQuery1.SQL.Text = 'SELECT Id, Name, Address FROM clients';
IBQuery.Filtered = TRUE;

and OnChange event handler for a TEdit component:

TForm1.OnEdit1Change(Sender: TObject);
begin
 try
  IBQuery.DisableControls();
  IBQuery1.Filter := 'Name LIKE '''+TEdit(Sender).Text+'''';
 finally
  IBQuery.EnableControls();
 end;
end;

It will work with TTable components too... It is enough slow way but could
be used.

In addition... The better idea is to consider to use TIBQuery components if
you work under a client-server project....
In this case another way and better one... to use WHERE clause in query
statements.
I mean something like "SELECT foo FROM bar WHERE Name LIKE
"%filter_string%"... this will increase speed because in this case all the
necessary calculations performs sql server and amount of data which is
pumping through a network has a less worth.

I solve the problem. Here you are the code:

procedure TfmForm1.edEdit1(Sender: TObject);
begin
  with dmDataModule1.IBQuery1 do begin
    Close;
    SQL.Text := 'SELECT * FROM Table1 WHERE Upper(Field1) LIKE "'+
AnsiUpperCase(edCrewSearch.Text) + '%"';
    Open;
  end
end;

--
Best Regards, Bojan Huljev
E-Mail: bojan.hul...@inet.hr

"Evgeny V. Levashov" <eug...@mebelmassiv.tula.ru> wrote in message
news:444992605@mebelmassiv.tula.ru...