![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Частичное совпадение [D6, Paradox]
shagen © (2002-05-28 21:25:00)Господа,выручайте!!! Как отфильтровать Table,чтоб допустим если пишешь rock,то чтобы фильтр показывал и поля со значение classic rock,hard-rock и т.д.
Заранее очень всем признателен и извиняюсь за вероятно глупый вопрос.
VICTOR_ (2002-06-10 11:13:00) [1]//На OnFilterRecord в Table1 пишеш:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Pos("rock",Form1.Table1.FieldByName("NAME").AsString)>0
//NAME - имя поля таблицы, в котором ты ищеш
end;
//на OnClick в Button1 запускаеш фильтр
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filtered:=True;
end;
//На Button2 - останов фильтра
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
Anatoly Podgoretsky (2002-06-09 09:56:00) [2]Попробуй, попробуй, а потом приходи на разборки с автором.
Proton (2002-06-09 00:45:00) [3]Попробуй в поле Filter вписать
Fileld like "%rock%"
или вот так
Fileld like "rock%" or Fileld like "%rock"
Тольяко свойство filtered не забудь поменять на true
Anatoly Podgoretsky (2002-05-28 21:50:00) [4]Обрабрабатывай в OnFilterRecord