Неправильно работает фильтр

@=AleXsei= · Регистрация: 22.06.2012

Author24 — интернет-сервис помощи студентам

Итак давайте все сначало.
1. Открываю Делфи7 На форму кидаю Table1, DataSource1, DBGrid1
2. Делаю связь с базой данной, которая идет по умолчанию в делфи. DBDEMOS - biolife.db
3. Кидаю на форму Edit1 в событии OnChange пишу след:

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
 begin
  if Length(Edit1.Text) = 0 then
    begin
      Table1.Filtered := False;
      Exit;
    end
  else
    begin
      Table1.Filtered := True;
      Table1.Filter := 'Category >= ' + QuotedStr(Edit1.Text);
    end;
end;

4. Итог: некорректно работает фильтр
5. Результат: (Посмотрите все скрины)
5.1. Первоначальная таблица: Скрин1
5.2. Вводим букву "S" Скрин2
5.3. Пишем слово "Smelt" Скрин3
5.4. Вводим букву "W" Скрин4 - как нистранно отфильтровал правильно
5.5. Вводим букву "T" Скрин5
5.6. Вводим букву "Q" Скрин6 - этой буквы вообще нету, а в результате он что то отфильтровал, зачем то.

Комментарий модератора

Теги кода исправлены модератором. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@Артём121 · 24.06.2012, 14:23

Замени

Delphi

1	Table1.Filter := 'Category >= ' + QuotedStr(Edit1.Text);

На такой вот код

Delphi

1	Table1.Filter := 'Category like "'+Edit1.Text+'%"';

@CHARMED · 24.06.2012, 14:28

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.Filtered:=true;
end;
 
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
with DataSet do
      Accept := (Pos(Edit1.Text,FieldByName('Name').AsString)>0)  //Name - имя поля где ищем текст введеный Edit1
end;

@=AleXsei= · 24.06.2012, 14:39 **[ТС]**

Сообщение от Артём121

Замени

Delphi

1	Table1.Filter := 'Category >= ' + QuotedStr(Edit1.Text);

На такой вот код

Delphi

1	Table1.Filter := 'Category like "'+Edit1.Text+'%"';

Запускается нормально но при первом же вводе
Ошибка Скрин

Добавлено через 10 минут

Сообщение от CHARMED

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.Filtered:=true;
end;
 
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
with DataSet do
      Accept := (Pos(Edit1.Text,FieldByName('Name').AsString)>0)  //Name - имя поля где ищем текст введеный Edit1
end;

Вообще ничего не фильтрует=\

@CHARMED · 24.06.2012, 14:40

Сообщение от =AleXsei=

Вообще ничего не фильтрует=\

Скинь свой проект....

@=AleXsei= · 24.06.2012, 14:49 **[ТС]**

Сообщение от CHARMED

Скинь свой проект....

Ссылка

@Артём121 · 24.06.2012, 14:52

Уверен, что должно пойти , т к у себя только что так попробывал

Delphi

1	Table1.Filter := 'Category like '''+Edit1.Text+'%''';

Разница заключается в кавычках. В первом ответе я использовал двойные кавычки, но почитав в интернете про правильность расстановки кавычек Delphi, узнал, что нужно использовать не двойные кавычки, а две одинарные

@=AleXsei= · 24.06.2012, 14:59 **[ТС]**

Сообщение от Артём121

Уверен, что должно пойти , т к у себя только что так попробывал

Delphi

1	Table1.Filter := 'Category like '''+Edit1.Text+'%''';

Разница заключается в кавычках. В первом ответе я использовал двойные кавычки, но почитав в интернете про правильность расстановки кавычек Delphi, узнал, что нужно использовать не двойные кавычки, а две одинарные

Такая же ошибка, мож я чето туплю не знаю, ну ссылку на проект смотри выше, мож че получится у тебя.

@Артём121 · 24.06.2012, 15:02

Действительно не выходит. Думаю,что Table не поддерживает операцию like.

@CHARMED · 24.06.2012, 15:05

вот мой проект, если не поймете что и как пишите , распишу все подробней...

@=AleXsei= · 24.06.2012, 15:17 **[ТС]**

Сообщение от CHARMED

вот мой проект, если не поймете что и как пишите , распишу все подробней...

Я конечно понимаю что достал, но у меня при запуске уже ошибку пишет
Application.MainFormOnTaskbar:= True;

Build
[Hint] Unit1.pas(34): Variable 's' is declared but never used in 'TForm1.Button1Click'
[Error] Project1.dpr(11): Undeclared identifier: 'MainFormOnTaskbar'

Если закоментировать то запускается, ввожу S фильтр работает но если я сотру текст то все все записи исчезают да и кнопка тоже становится невидимой D

@Артём121 · 24.06.2012, 15:19

Сделал

@=AleXsei= · 24.06.2012, 15:25 **[ТС]**

Сообщение от Артём121

Сделал

Квери...=\ через table никак? квери я вообще не знаю, не работал даже, а шас мне получается все таблицы надо переделывать и код переписывать=\

@CHARMED · 24.06.2012, 15:27

Удалите эту строчу..

Delphi

1	Application.MainFormOnTaskbar := True;

@Артём121 · 24.06.2012, 15:29

Без Query я не знаю как. В коде замени Table1 на Query1. Больше менять ничего не требуется.

@=AleXsei= · 24.06.2012, 15:40 **[ТС]**

Сообщение от CHARMED

Удалите эту строчу..

Delphi

1	Application.MainFormOnTaskbar := True;

А что еще за папка там wDebug ?
Ну а можно сделать условия что если нету текста то фильтр фолсе?

@CHARMED · 24.06.2012, 15:45

На форме:
Edit1: TEdit;
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;

1. Table1 - Свойство - параметр
Database - DBDEMOS
Table - biolife.db

2. DataSource - Свойство - параметр
DataSet - Table1
Enable - true

3. DBGrid1 - Свойство - параметр
DataSource - DataSource1

4. Table1 - Свойство - параметр
Active - true

В результате Выше перечисленного >картинка

Добавьте две процедуры и все больше ничего не надо делать...

@=AleXsei= · 24.06.2012, 15:55 **[ТС]**

Сообщение от CHARMED

На форме:
Edit1: TEdit;
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;

1. Table1 - Свойство - параметр
Database - DBDEMOS
Table - biolife.db

2. DataSource - Свойство - параметр
DataSet - Table1
Enable - true

3. DBGrid1 - Свойство - параметр
DataSource - DataSource1

4. Table1 - Свойство - параметр
Active - true

В результате Выше перечисленного >картинка

Добавьте две процедуры и все больше ничего не надо делать...

Вот её богу у меня не фильтруется, но у вас я смотрю делфи xe у меня делфи7 разница есть нет?

@CHARMED · 24.06.2012, 15:58

тогда не знаю.... разница есть конечно,
откуда В Вашем проекте вот эти строчки

Delphi

 Table1SpeciesNo: TFloatField;
    Table1Category: TStringField;
    Table1Common_Name: TStringField;
    Table1SpeciesName: TStringField;
    Table1Lengthcm: TFloatField;
    Table1Length_In: TFloatField;
    Table1Notes: TMemoField;
    Table1Graphic: TGraphicField;

@=AleXsei= · 24.06.2012, 16:31 **[ТС]**

Сообщение от CHARMED

тогда не знаю.... разница есть конечно,
откуда В Вашем проекте вот эти строчки

Delphi

 Table1SpeciesNo: TFloatField;
    Table1Category: TStringField;
    Table1Common_Name: TStringField;
    Table1SpeciesName: TStringField;
    Table1Lengthcm: TFloatField;
    Table1Length_In: TFloatField;
    Table1Notes: TMemoField;
    Table1Graphic: TGraphicField;

Сами создались, да я щас сделал все с нуля, прописал две процедуры и ничего... ваш проект работает, но мне надо много таких фильтров сделать в других проектах. и да когда с нуля делал этих строчек там не было.

Добавлено через 5 минут
Ой я дурак... все работает

Добавлено через 38 секунд
Можно еще вопрос, как сделать чтобы чувствительно к регистру не было?

Добавлено через 18 минут
И да, объясни мне суть этого кода, расшифруй так скажем, пожалуйста.
with DataSet do
Accept := (Pos(Edit1.Text,FieldByName('fam').AsString)>0)

Добавлено через 18 секунд
Спасибо огромное кстати, реально выручил прям...

@=AleXsei= 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 40
	24.06.2012, 15:25 [ТС]	13
	Сообщение от Артём121 Сделал Квери...=\ через table никак? квери я вообще не знаю, не работал даже, а шас мне получается все таблицы надо переделывать и код переписывать=\ 0

@CHARMED 89 / 70 / 9 Регистрация: 04.03.2012 Сообщений: 206
	24.06.2012, 14:40	5
	Сообщение от =AleXsei= Вообще ничего не фильтрует=\ Скинь свой проект.... 1

@=AleXsei= 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 40
	24.06.2012, 14:49 [ТС]	6
	Сообщение от CHARMED Скинь свой проект.... Ссылка 0

@Артём121 66 / 65 / 13 Регистрация: 15.11.2010 Сообщений: 396 Записей в блоге: 1
	24.06.2012, 15:02	9
	Действительно не выходит. Думаю,что Table не поддерживает операцию like. 0

@=AleXsei= 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 40
	24.06.2012, 15:17 [ТС]	11
	Сообщение от CHARMED вот мой проект, если не поймете что и как пишите , распишу все подробней... Я конечно понимаю что достал, но у меня при запуске уже ошибку пишет Application.MainFormOnTaskbar:= True; Build [Hint] Unit1.pas(34): Variable 's' is declared but never used in 'TForm1.Button1Click' [Error] Project1.dpr(11): Undeclared identifier: 'MainFormOnTaskbar' Если закоментировать то запускается, ввожу S фильтр работает но если я сотру текст то все все записи исчезают да и кнопка тоже становится невидимой D 0

@Артём121 66 / 65 / 13 Регистрация: 15.11.2010 Сообщений: 396 Записей в блоге: 1
	24.06.2012, 15:29	15
	Без Query я не знаю как. В коде замени Table1 на Query1. Больше менять ничего не требуется. 0

@CHARMED 89 / 70 / 9 Регистрация: 04.03.2012 Сообщений: 206
	24.06.2012, 15:45	17
	На форме: Edit1: TEdit; DBGrid1: TDBGrid; Table1: TTable; DataSource1: TDataSource; 1. Table1 - Свойство - параметр Database - DBDEMOS Table - biolife.db 2. DataSource - Свойство - параметр DataSet - Table1 Enable - true 3. DBGrid1 - Свойство - параметр DataSource - DataSource1 4. Table1 - Свойство - параметр Active - true В результате Выше перечисленного >картинка Добавьте две процедуры и все больше ничего не надо делать... Миниатюры 1

@=AleXsei= 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 40
	24.06.2012, 15:55 [ТС]	18
	Сообщение от CHARMED На форме: Edit1: TEdit; DBGrid1: TDBGrid; Table1: TTable; DataSource1: TDataSource; 1. Table1 - Свойство - параметр Database - DBDEMOS Table - biolife.db 2. DataSource - Свойство - параметр DataSet - Table1 Enable - true 3. DBGrid1 - Свойство - параметр DataSource - DataSource1 4. Table1 - Свойство - параметр Active - true В результате Выше перечисленного >картинка Добавьте две процедуры и все больше ничего не надо делать... Вот её богу у меня не фильтруется, но у вас я смотрю делфи xe у меня делфи7 разница есть нет? 0