Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to allow Incremental searching in your TDataSets Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
Allow Incremental searching in your TDataSets 25-Aug-02
Category
ADO/OLE-DB
Language
Delphi 2.x
Views
158
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Tomas Rutkauskas 

Allow Incremental Searching in your TDataSets

Answer:

If you implement your search box (against a TDataSet) with a regular Locate() or 
FindKey() call requires that the user has typed in the exact search expression. It 
is much more handy to jump to the first match based on a partial search. E.g. if 
your user searches for the month 'August' in the list of 12 months' names, the user 
would type in 'A' and the cursor would jump to 'April'. Then the user would type 
the second letter.. 'u' and 'August' would be selected. This is called 'Incremental 
Searching'.

The following piece of code shows how to do it - put it as the onChange event 
handler of your form's edit box.
1   
2   procedure TForm1.Edit1Change(Sender: TObject);
3   begin
4     // empty? then do nothing!
5     if Edit1.Text = '' then
6       exit;
7   
8     //goto nearest match
9     with Table1 do
10    begin
11      SetKey;
12      FieldByName('Month').AsString := Edit1.Text;
13      GotoNearest;
14    end;
15  end;


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC