Платные хостинги     Раскрутка сайта     Книги по программированию

Поиск по таблице, но не фильтр, прейти к похожей как в акцессе

- Здравствуйте, друзья.Подскажите как заделать такую штуку:По некоторому буквосочетанию переместить указатель в таблице на строку, удовлетворяющую фильтру, но не отфильтровывать по нему, т.е. чтобы были видны соседние записи, не удовлетворяющие парамерам фильтра.Для тех, кто в танке: :-) Как в Акцессе при нажатии правой кнопкой на таблице - поиск по фильтру.Заранее благодарен.P.S. переоткрывание не предлагать - так и я могу. Подозреваю, что есть какая-то комманда...

- select * from table where field like %abc%

- innok НЕВЕРНО!!! Добавлено @ 20:57 Можно так:Код query1.Open;with query1 do if Pos('образец', FieldByName('asdf')) <> 0   then    break   else    Next;highlightSyntax('delphiZlNjAx','delphi');Что-то типа этого...

- innok -не туда!Pakshin A. S. - Очень долго!Примери метод Locate - он позиционирует курсор на нужную запись

- Народ, все просто!!! Ловите!!!!!!Код Table1.Locate('назв поля',Edit1.Text, [loCaseInsensitive,loPartialKey]);highlightSyntax('delphiDQyNTE','delphi');ищет сразу, по каждой букве!!!

- Всем спасибо, метод Локейт нашел уже, только он не допускает звездочек, т.е. нельзя искать по *ранзистор. а хотелось бы.

- VitВот именно , что туда-select a.key from table a where field like %ранзистор%а вот потом Locate('key',q1.fieldbayname('key').value,[loPartialKey]) ;если чистый Locate - слово с начала, а не фрагмент.Или как Pakshin A. S.

- Код procedure TForm1.Edit1Change(Sender: TObject);begin  Table1.Locate('íàçâ ïîëÿ',Edit1.Text, [loCaseInsensitive,loPartialKey]);end;highlightSyntax('delphiWYyZjh','delphi');все.

- смотри ответ Мебель, а именноКод [loCaseInsensitive,loPartialKey]highlightSyntax('delphixMTIxY','delphi');читай справку Добавлено @ 11:35 edF - компонента TEdit (сюда пишем текст)tPhone - TTable, idxNAM - индекс по искомому полюКод procedure TfmMain.edFChange(Sender: TObject);begin tPhone.IndexName:='idxNAM'; DBGrid1.Columns[1].Title.SortMarker:=smDownEh; tPhone.FindNearest([edF.Text]);end;highlightSyntax('delphiMjI2Nm','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD