Поиск по введенному символу.

[Waaper]

Здравствуйте.
Помогите пожалуйста с поиском.
Нужно сделать так, что бы пользователь вводил данные в поле ввода, и одновременно эта информация должна выводиться на рядом стоящем дбгрите, причем по мере ввода информации в поле ввода. Сам не могу понять, как это делать(

Таблицы только типа парадокс. Вот, накидал заготовку, класть в корень диска с, псевдоним "аа".
Помогите пожалуйста, буду очень благодарен.

[Waaper]

Помогите пожалуйста..

[Gulik]

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if Edit1.Text <> '' then begin
      Table1.Filter := 'Tovar>=''' + Edit1.Text + '''' ;  // для точного поиска используй   Table1.Filter := 'Tovar=''' + Edit1.Text + '''' ;
      Table1.Filtered := True ;
   end
   else
      Table1.Filtered := False ;
end;

И сам исходник Скачать

[Waaper]

Спасибо тебе огромное!

[kuzmich]

а у меня такой вопрос по этому коду. у меня тоже проблемма с поиском.
когда я вожу данные, у меня остаються две записи, вопрос в том - почему?

[Gulik]

фильтрация идет по алфавиту...

[sauronkolco]

Сообщение от Gulik

фильтрация идет по алфавиту...

А можно тоже самое сотворить, только на яваскрипт. Подскажи хотяб основу, остальное сам доделаю , заранее благодарен.

[Darcangel]

procedure pois(s:string);
var
qsql:string;

begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
qsql:='SELECT * FROM base WHERE '+s+' LIKE '+'("%'+Form1.Edit1.Text+'%")';
Form1.ADOQuery1.SQL.Text:=qsql+' ORDER BY Имя_судна';
Form1.ADOQuery1.Open;
end;
процедура поиска любого значения edit1 ( похожие значения) по столбцам базы
естественно:
Form1.Edit1.Text - текст поиска
s - в каком столбце ищем

[ch1pah1]

А как сделать более точный поиск, например ввод 2 и более слов в Edit?