Searching table through filter property 2

[math]

Hi,

I need to be able to search a table for searchstrings...
The table is a Adressbook and what I want to do is search on names with the Filter property...

Table1.Filter := 'Name = ' + QuotedStr(EditSearch.Text);

This works, but then you have to search for the full name, correctly spelled or it won't work... What I want is to be able to search for parts of the name... For example: I search for "ters" then the Adress of "Peeters Jack" should be with the results... using CompareText doesn't seem to work?

Can anyone help me?
Thanx in advance,
math

 

[towerbase]

Write an OnFilterRecord event handler for Table1.

For your example, the code will look something:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := Pos ( EditSearch.Text, Table1Name.AsString ) > 0;
end;

Remember to set Table1.Filtered to true to activate the filter. Do not put anything in the Filter property.