Поиск в dbgrid1(table1) по любой части слова.

← →
Officeman (2003-03-26 19:35) [0]

Доброе время суток. Когдато этот влпрос здесь задавался. но что то я немогу найти. поэтому спрашиваю ещё разок =)
Как осуществить поиск по любой части слова в определенном столбце таблицы. без использования sql.
например дано такое значение в ячейке:
ПФ-266
ПФ-115
Я набираю 115 в edit1 и нахожу это значение.

← →
Anatoly Podgoretsky © (2003-03-26 19:41) [1]

Сканирование всех записей

← →
zacho © (2003-03-26 19:41) [2]

RTFM TDataSet.Locate

← →
Anatoly Podgoretsky © (2003-03-26 19:50) [3]

zacho © (26.03.03 19:41)
Не подойдет - "по любой части слова"

← →
Officeman (2003-03-26 19:51) [4]

Привидите пожалуйста на примере!

с Уважением и неисчерпаемой благодарностью, ОфисМен

← →
Officeman (2003-03-26 19:54) [5]

Да! необходим поиск по любой части слова. т.е. поиск внутри строки. я когда то это писал. =/ исходник несохранился. =(
Может у кого есть пример ?

← →
Anatoly Podgoretsky © (2003-03-26 19:55) [6]

Смотри хелп по слову POS или любой учебник, начиная с 80 годов, без разницы

← →
Officeman (2003-03-26 20:07) [7]

Загрузил по полной! еслибы у меня был нормальный учебник я бы сейчас в форуме бы не сидел =/

← →
Anatoly Podgoretsky © (2003-03-26 20:09) [8]

Нормальные учебники есть на моем сайте ( бесплатно), а уж про хелп молчу, он у тебя вместе с Дельфи

← →
MsGuns © (2003-03-26 20:25) [9]

function SearchAnyPartByScan(tb: TTable; FldName: string; Sbl: string; OptBof: boolean): result; var bm: TBookMark; begin result := false; with Table1 do begin bm := GetBookMark(tb); // Запомнить исх.точку if OptBof then First; // Поиск с начала НД while Not Eof if pos(Sbl,FieldByName(FldName).AsString)>0 then begin result := true; break; end; if not result then GoToBookMark(bm); // Возврат в исх.точку FreeBookMark(bm); end; end; procedure Form1.Button1Click(Sender: TObject); begin Form1.Grid1.DataSource.Enable := false; // Не отображаем НД if not SearchAnyPartByScan(Form1.Table1,"FIO",Form1.Edit1.Text,false) then ShowMessage("Не найдена !"); Form1.Grid1.DataSource.Enable := true; // Отображаем НД end;

← →
Officeman (2003-03-26 20:28) [10]

эээээ... есть но мне лень =)

← →
MsGuns © (2003-03-26 20:35) [11]

>Officeman (26.03.03 20:28)

Блин, прочитал бы это пост раньше, не корячился, не мозолил бы руки. Прав был Johnmen, ох и прав !!!

← →
Officeman (2003-03-26 20:42) [12]

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

зря вы так со мной.

← →
Anatoly Podgoretsky © (2003-03-26 20:51) [13]

MsGuns © (26.03.03 20:35)
В следующий раз не торопись, подожди когда он скажет, что именно в хелпе ему непонятно.

← →
Officeman (2003-03-26 20:53) [14]

всё с вами ясно. спасибо за гостеприимство ...

← →
MsGuns © (2003-03-26 20:56) [15]

Как всегда, Пришел, Увидел (узнал), Нахамил

Ну так не последний раз приходит, скоро все его будут знать.

← →
Officeman (2003-03-26 21:03) [17]

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

с Уважением, ОфисМен

Приятно помочь человеку благодарному. Тому же, кто после легкого виртуального щелчка по лбу (и ведь за дело !), начинает строить из себя разобиженного, да еще и хамить учителю, - стыд и срам !!!

:)~

← →
Officeman (2003-03-26 21:11) [19]

...

???

← →
Officeman (2003-03-26 21:37) [21]

это значит я промолчал. понял что был неправ и хочу исправится =/

;%)

Поиск в dbgrid1(table1) по любой части слова. Найти похожие ветки