Фильтрация данных по 2 и больше параметрам!!!

[$T@LKER]

Вот использую код для фильтрации даных которые получены врезультате выборки:

procedure TAReview.Edit5Change(Sender: TObject);
begin
if length(Edit5.Text) > 0 then
begin
  DataModule2.DataQuery.Filtered := true;
end
else
begin
  Edit5.Text := '0';
  DataModule2.DataQuery.Filtered := false;
end;

DataModule2.DataQuery.Filter := 'планировка = ''' + Edit5.Text + '''';
end;

У меня на форме около 10 разных полей куда вводяться те или иные данные!!! но проблема в том что фильтрации может осуществляться тока по одному полю из тех что получились после выборки даных!!! Вопросо в том как осуществить фильтрацию по нескольким полям!!!
Пример как должно быть: в результате выборки получаме 100 запесей! вильтруем скажем по полю планировка остаёться 30 запесей! Но! Если скажем от фильтровать по полю скажем цена то получеться фильтрация будет происходит по тому что мы получили врезультате выборки - 100 запесей!! А не по тому что осталось после фильтрации по полю планировка!!! Как зделать что бы фильтрация сохранялась?!

[maLoy*508]

проверяй эдиты и дописывай фильтр
то есть если эдит не пустой, то фильтр := фильтр + новое знаечение

dataQuery.Filter := DataQuery.Filter + ' and ' +QuotedStr(edit1.text);

примерно так

[$T@LKER]

Сообщение от maLoy*508

проверяй эдиты и дописывай фильтр
то есть если эдит не пустой, то фильтр := фильтр + новое знаечение

dataQuery.Filter := DataQuery.Filter + ' and ' +QuotedStr(edit1.text);

примерно так

Спасибо!!! Буду побывать!!! Тока есть вопрос что делает эта функция что вы написали: QuotedStr()?!

[maLoy*508]

обрамляет ковычками...

DataModule2.DataQuery.Filter := 'планировка = ''' + Edit5.Text + '''';
//равносильно
DataModule2.DataQuery.Filter := 'планировка = ' + QuotedStr( Edit5.Text);

[$T@LKER]

Спасибо! Удобная вещь!

проверяй эдиты и дописывай фильтр
то есть если эдит не пустой, то фильтр := фильтр + новое знаечение
Код:


dataQuery.Filter := DataQuery.Filter + ' and ' +QuotedStr(edit1.text);

примерно так

Спасибо! Я пробывал раньше что-то похожое но не получалось! Теперь работает! Но опять появилась проблемка! Вот у меня код который фильтрует:

DataModule2.DataQuery.Filter := DataModule2.DataQuery.Filter + 'and планировка = ''' + Edit5.Text + '''';

Нюанс в том что программа выдёт ошибку если я приминяю этот фильтр до того как был применьон этот:

DataModule2.DataQuery.Filter := 'планировка = ''' + Edit5.Text + '''';

Тоесть я так понимаю что нужно сначала установить какойто первоначальный фильтр а потом уже к нему добавлять остальные?! Пытался как придумать условие на проверку того был ли применьо фильтр к DataModule2.DataQuery но так и не получилось! Я типо хотел что при вводе скажем в поле эдит какогото значение проверяралось условие типа был ли применьо уже фильтр или нет и в зависимости от этого использовать один из выше указаных кодов! И таким образом избежать возникновения ошибки! Вот тока незнаю тока как это проверить! Думал что-то типа

if (DataModule2.DataQuery.Filtered = true)
then begin
DataModule2.DataQuery.Filter := DataModule2.DataQuery.Filter + 'and комнат = ''' + SpinEdit6.Text + ''''
end
else
DataModule2.DataQuery.Filter := 'комнат = ''' + SpinEdit6.Text + '''';

ну толку никакого! Подскажите что делать?!

[maLoy*508]

пробуй проверять его длину, то есть

if length(DataModule2.DataQuery.Filter) > 0 then
.....
else
.....

[$T@LKER]

пробуй проверять его длину

Хм....попробую!

пробуй проверять его длину, то есть
Код:


if length(DataModule2.DataQuery.Filter) > 0 then
.....
else
.....

Работает огромное спосибо!!!
А можете обяснить каким образом здесь проверяеться длинна фильтра?!
Я понимаю что єто вот здесь

if length(DataModule2.DataQuery.Filter ) > 0

Тока непойму как єто возможно!? С єдитом понятно как! А здесь?!

[maLoy*508]

таким же как и эдит...
DataModule2.DataQuery.Filter - строка(тип стринг)
команда length возвращает длину переданной ей строки
вроде бы все просто

[Stilet]

Фильт это свойство типа Строка. А длину строки проверяют функцией Length

[$T@LKER]

А! Я просто незнал что фильтр тоже строка! Хотя в принцыпе логично ведь фильтруються то строковые даные! Спасибо!