Фильтрация Table

← →
OxOTHuK (2003-05-23 22:49) [0]

есть такой код, который в соответствии с элементами на форме, устанавливает критерий фильтрации таблицы. Проблема в том, что некоторые поля заплнены РУССКИМИ словами, а их надо писать в одиночных кавычках типа: name="Вася Пупкин", если писать ручками, то никаких проблем, а если прграммно (см.ниже) то компилятор ругается (зараза такая)...

И еще вопрос: как поставить фильтрацию по маске (name="Вася"*, т.е. всех Вась надо вывести)

procedure TForm1.Button1Click(Sender: TObject);
begin
if combobox1.Text<>""
then table1.Filter:="ocenka="+combobox1.Text;
if combobox2.Text<>""
then table1.Filter:=Table1.filter+
" and kurs="+combobox2.Text;
if edit1.Text<>"" then
table1.Filter:=Table1.filter+" and fio="+#39+edit1.Text+#39;
table1.Filtered:=true;
end;

← →
Zacho © (2003-05-23 23:14) [1]

А, случайно, функция AnsiQuotedStr не поможет ?
И неплохо было бы привести текст сообщения об ошибке.

← →
Ovsjanikov (2003-05-24 11:29) [2]

Что то я вопроса не понял ...
У тебя в таблице фамилии с кавычками записаны ???

Поле: FIO
ИВАНОВ
ПЕТРОВ
...

Table1.filter:="И*";
выводит всех на И...
Только нужно в свойствах таблицы выключить NoPartialCompare.

А вот с кавычками я так вопроса и не понял...

← →
OxOTHuK (2003-05-24 23:31) [3]

>> Ovsjanikov: В таблице фамилии и имена без кавычек, но в фильтре надо добавить одиночные кавычки " ", наверное потому, что фамилия имя и отчество находятся в одном поле.
NoPartialCompare - это где?

>>Zacho
Ругается на строку "and "

>> ALL
А нельзя установить поиск по подстроке?

Если combobox1.Text="" а
combobox2.Text<>""
то что получаем в Table1.Filter? :)

← →
OxOTHuK (2003-05-26 23:26) [5]

Фильтрация Table Найти похожие ветки