Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Фильтр по подстроке


Страницы:   1 2

qaswet ©   (2007-10-17 03:42:00) 

Как сделать фильтр по подстроке в названии?
DataModule2.base.Filter:='Name='+quotedstr(Edit1.Text+'*') - этот фильтр ищет вхождение с начала.


Alex_Y   (2007-10-23 11:39:00) [1]

DataModule2.base.Filter:='Name like '+quotedstr('*' + Edit1.Text + '*')
и будет тебе счастье :)


qaswet   (2007-10-23 08:04:00) [2]


> ASoft

Огромный тебе respect!!!!!!!!!!!!!!!!!!!!!!


ASoft   (2007-10-23 07:40:00) [3]

AnsiUpperCase()


qaswet   (2007-10-23 07:14:00) [4]

Блин, UpperCase не русифицированная функция..:( Как можно ее русифицировать?


qaswet   (2007-10-23 07:06:00) [5]

Пытался переводить все в верхний регистр - не работает...
Accept :=pos(UpperCase(main.Edit1.Text),UpperCase(DataModule2.base.FieldByName('Name'). AsString))>0


qaswet   (2007-10-23 05:42:00) [6]

Сделал через OnFilterRecord

Accept :=pos(main.Edit1.Text,DataModule2.base.FieldByName('Name').AsString)>0

Одна только проблема функция чувствительна к регистру, можно ли это исправить?


Reindeer Moss Eater   (2007-10-19 09:57:00) [7]

а цена с НДС или без?


qaswet   (2007-10-19 09:55:00) [8]


> > Не ну кроме - а что это за зверь? "таблица BDE"?
>
> Да просто данные о товаре: название, цена и т.д.

Что непонятно?


Anatoly Podgoretsky   (2007-10-19 09:44:00) [9]

> qaswet  (19.10.2007 09:31:16)  [16]

От тебя давно хочут узнать, что за база такая  "таблицы БДЕ"


qaswet   (2007-10-19 09:31:00) [10]


> К базе "таблицы БДЕ" фильтры не применимы.

То есть хотите сказать, что такой функции как Table.Filter не существует?:)


Reindeer Moss Eater   (2007-10-19 09:25:00) [11]

может в синтаксисе выражения какая-то ошибка?

Может знак равно заменить на что-то другое? Например на какое-нибудь слово из четырех букв.


Anatoly Podgoretsky   (2007-10-19 09:02:00) [12]

К базе "таблицы БДЕ" фильтры не применимы.


qaswet   (2007-10-19 08:09:00) [13]


> ASoft   (18.10.07 03:30) [7]
>
> > qaswet   (17.10.07 03:42)
>
> ...Edit1.Text+'%'

Символ '%' вообще никак не воспринимается, поэтому и спрашиваю, может в синтаксисе выражения какая-то ошибка?


ASoft   (2007-10-18 11:40:00) [14]


> ASoft   (18.10.07 03:30) [7]


Reindeer Moss Eater   (2007-10-18 11:21:00) [15]

не работает, потому что там не звезда должна быть.


qaswet   (2007-10-18 10:50:00) [16]


> ну так и символы маски должы быть не только сзади, но и
> спереди

А как эти символы маски спереди поставить?
Так не работает
DataModule2.base.Filter:='Name='+quotedstr('*'+Edit1.Text+'*')


Reindeer Moss Eater   (2007-10-18 10:08:00) [17]

ну так и символы маски должы быть не только сзади, но и спереди


qaswet   (2007-10-18 09:55:00) [18]


> Не ну кроме - а что это за зверь? "таблица BDE"?

Да просто данные о товаре: название, цена и т.д. Хочу фильтровать по названию,  т.е. ввел, например, в строке поиска слово "диск" и в отфильтрованном списке содержится записи: жесткий диск, гибкий диск, переносной диск памяти и т.д.


ASoft   (2007-10-18 03:30:00) [19]


> qaswet   (17.10.07 03:42)

...Edit1.Text+'%'


Германн   (2007-10-18 02:50:00) [20]


> qaswet   (18.10.07 02:24) [5]
>
>
> > довольно сложно угадать, что используется в качестве DataModule2.
>
> > base
>
> таблица BDE
>

Ну да. Теперь всё всем стало понятно :-)
Не ну кроме - а что это за зверь? "таблица BDE"?


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо