Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Officeman © (2003-03-26 19:35:00)
Доброе время суток. Когдато этот влпрос здесь задавался. но что то я немогу найти. поэтому спрашиваю ещё разок =)
Как осуществить поиск по любой части слова в определенном столбце таблицы. без использования sql.
например дано такое значение в ячейке:
ПФ-266
ПФ-115
Я набираю 115 в edit1 и нахожу это значение.

MsGuns (2003-03-26 21:44:00) [1]
;%)

Officeman (2003-03-26 21:37:00) [2]
это значит я промолчал. понял что был неправ и хочу исправится =/

MsGuns (2003-03-26 21:14:00) [3]
???

Officeman (2003-03-26 21:11:00) [4]
...

MsGuns (2003-03-26 21:08:00) [5]
Приятно помочь человеку благодарному. Тому же, кто после легкого виртуального щелчка по лбу (и ведь за дело !), начинает строить из себя разобиженного, да еще и хамить учителю, - стыд и срам !!!

:)~

Officeman (2003-03-26 21:03:00) [6]
У вас что день несложился чтоли? на работе начальким наорал на вас или что ? почему нельзять просто помочь человеку, а ?
Я что такой сташный чтоли, лентяй? сегодня мне тяжело. завтра другому. на то этот форум был и придуман чтобы помогать друг другу или нет ? я думаю что всётаки вы нарисовали ошибочное мнение обо мне.

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

Anatoly Podgoretsky (2003-03-26 20:58:00) [7]
Ну так не последний раз приходит, скоро все его будут знать.

MsGuns (2003-03-26 20:56:00) [8]
Как всегда, Пришел, Увидел (узнал), Нахамил

Officeman (2003-03-26 20:53:00) [9]
всё с вами ясно. спасибо за гостеприимство ...

Anatoly Podgoretsky (2003-03-26 20:51:00) [10]
MsGuns © (26.03.03 20:35)
В следующий раз не торопись, подожди когда он скажет, что именно в хелпе ему непонятно.

Officeman (2003-03-26 20:42:00) [11]
Спасибо огромное.

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

MsGuns (2003-03-26 20:35:00) [12]
>Officeman (26.03.03 20:28)

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

Officeman (2003-03-26 20:28:00) [13]
эээээ... есть но мне лень =)

MsGuns (2003-03-26 20:25:00) [14]
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;

Anatoly Podgoretsky (2003-03-26 20:09:00) [15]
Нормальные учебники есть на моем сайте ( бесплатно), а уж про хелп молчу, он у тебя вместе с Дельфи

Officeman (2003-03-26 20:07:00) [16]
Загрузил по полной! еслибы у меня был нормальный учебник я бы сейчас в форуме бы не сидел =/

Anatoly Podgoretsky (2003-03-26 19:55:00) [17]
Смотри хелп по слову POS или любой учебник, начиная с 80 годов, без разницы

Officeman (2003-03-26 19:54:00) [18]
Да! необходим поиск по любой части слова. т.е. поиск внутри строки. я когда то это писал. =/ исходник несохранился. =(
Может у кого есть пример ?

Officeman (2003-03-26 19:51:00) [19]
Привидите пожалуйста на примере!

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

Anatoly Podgoretsky (2003-03-26 19:50:00) [20]
zacho © (26.03.03 19:41)
Не подойдет - "по любой части слова"

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »