Ошибка: Unit1.pas(206): Illegal character in input file: '%' ($25)

@Syparty · Регистрация: 17.11.2009

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

привет всем!

есть база данных
клиент написан на делфи
сама база держится на inter base

есть рабочая фильтрация базы

Delphi
1
2
3
4
5
6
7
8
9
Case sRadioGroup1.ItemIndex of
0:DataModule2.IBQuery1.SQL.Add('WHERE (POLSOVAT ='''+LabeledEdit10.Text+''')'); //фильтрация первого поля 
...... //второе
.... //третье
.... //и так далее
...
...
9:LabeledEdit10.Text:='';
end;

все вроде бы хорошо
плохо только одно что бы отфильтровать какую то запись или несколько одинаковых записей (то есть с одинаковыми значениями например: вводим "Иванов"и программа выводит всех однофамильцев)
нужно вводить полностью всю Фамилию
а я хочу что бы фильтрация работала даже по куску слова или по букве

например: вводим "И" и программа выводит всех людей у которых фамилия начинается на букву "И"

вот ВРОДЕ БЫ по моей задумке должно работать

Delphi
1
2
3
4
5
6
7
8
9
0:DataModule2.IBQuery1.SQL.Add('WHERE (POLSOVAT like"'+'%'='''+LabeledEdit10.Text+'%'"'''')');
//первое поле
...... //второе
.... //третье
.... //и так далее
...
...
9:LabeledEdit10.Text:='';
end;

после этого изменения прога выводит ошибку [Error] Unit1.pas(206): Illegal character in input file: '%' ($25) ну и понятное дело не запускается

подскажите кто может я уверен тут много знающих людей

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

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

@Lord_Voodoo · 30.08.2012, 18:14

Syparty, у вас проблемы с одинарными кавычками, даже в теге код видно...

@albor · 30.08.2012, 21:55

Syparty

Чем с этими рядами кавычек.. попробуйте вот так:

Delphi
1
.IBQuery1.SQL.Add('WHERE (POLSOVAT like ' + QuotedStr('%'+LabeledEdit10.Text+'%')

@SAMZ · 31.08.2012, 05:55

Если вам нужен поиск по началу строки, посмотрите starting. Это удобнее, чем like. Если в версии IB, которую вы используете разрешен starting, то

SQL
1
2
3
...
WHERE POLSOVAT starting 'Ив'
...

даст вам множество, у которого POLSOVAT начинается с 'Ив'
Есть еще containing, которое проверяет на включение подстроки.

@Syparty · 31.08.2012, 12:43 **[ТС]**

albor теперь вот такая ошибка
IbQuery1 настроен верно это точно все перепроверил
изначальный запрос в ibQuery SELECT * FROM POLSOVATEL

блин да что не так то?

@albor · 31.08.2012, 12:49

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

изначальный запрос в ibQuery SELECT * FROM POLSOVATEL

блин да что не так то?

пробельчик не забыли? (перед WHERE)

SQL
1
SELECT * FROM POLSOVATEL  WHERE...

хотя нет, это я просмотрел что Вы добавляете через Add(

Весь текст покажите (ту часть где формируется запрос).

@Syparty · 31.08.2012, 13:14 **[ТС]**

SAMZ,

мне не нужно что бы поиск работал по началу строки.мне необходимо реализовать качественный и удобный поиск что бы он работал по обрывку слова или даже по одной букве.Без заранее поставленного условия поиска. То есть не так как у вас заданно сразу 'ив' потому что если я введу в edit 'ива' программа уже ни чего не найдет

Добавлено через 15 минут
код label (в который я пишу что искать)

Delphi
1
2
3
4
procedure TForm1.LabeledEdit10Change(Sender: TObject);
begin
RadioGroup1Click(Sender);
end;

код RadioGroup (тут я выбираю столбец по которому искать)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.sRadioGroup1Click(Sender: TObject);
begin
DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.SQL.Clear;
DataModule2.IBQuery1.SQL.Add('SELECT * FROM POLSOVATEL');
 
 
Case sRadioGroup1.ItemIndex of
0:DataModule2.IBQuery1.SQL.Add('WHERE (POLSOVAT like ' + QuotedStr('%'+LabeledEdit10.Text+'%')) ;
{1:DataModule2.IBQuery1.SQL.Add('WHERE (IP='''+LabeledEdit10.Text+''')');
2:DataModule2.IBQuery1.SQL.Add('WHERE (PODIE='''+LabeledEdit10.Text+''')');
3:DataModule2.IBQuery1.SQL.Add('WHERE (KOMNOTA='''+LabeledEdit10.Text+''')');
4:DataModule2.IBQuery1.SQL.Add('WHERE (LICEN='''+LabeledEdit10.Text+''')');
5:DataModule2.IBQuery1.SQL.Add('WHERE (MAC='''+LabeledEdit10.Text+''')');
6:DataModule2.IBQuery1.SQL.Add('WHERE (DOM='''+LabeledEdit10.Text+''')');
7:DataModule2.IBQuery1.SQL.Add('WHERE (NAME='''+LabeledEdit10.Text+''')');
8:DataModule2.IBQuery1.SQL.Add('WHERE (REMOTE='''+LabeledEdit10.Text+''')');  }
 
 
9:LabeledEdit10.Text:='';
end;
DataModule2.IBQuery1.Open;
end;

Изначально занесенный SQL код в IBQuery (он мало имеет значения потому что отчищаю и задаю его заново уже в событии на Click в RadioGroup)

SQL
1
SELECT * FROM POLSOVATEL

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

Для оформления кода следует применять соответствующие теги. Для оформления кода Delphi предназначен тег: "DELPHI", для кода SQL приеняется тег: "SQL".

@albor · 31.08.2012, 13:33

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

Изначально занесенный SQL код в IBQuery (он мало имеет значения потому что отчищаю и задаю его заново уже в событии на Click в RadioGroup)
...

Не вижу ничего криминального. Поэтому еще один вариант:

Давайте добавим перед DataModule2.IBQuery1.Open; и посмотрим что там в Query..

Delphi
1
2
3
ShowMessage(DataModule2.IBQuery1.SQL.Text);
 
DataModule2.IBQuery1.Open;

@Syparty · 31.08.2012, 14:03 **[ТС]**

хм... да вы правы он не записывает весь запрос....

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.SQL.Clear;
DataModule2.IBQuery1.SQL.Add('SELECT * FROM POLSOVATEL');
 
 
Case sRadioGroup1.ItemIndex of
0:DataModule2.IBQuery1.SQL.Add('WHERE (POLSOVAT like ' + QuotedStr('%'+LabeledEdit10.Text+'%')) ;
{1:DataModule2.IBQuery1.SQL.Add('WHERE (IP='''+LabeledEdit10.Text+''')');
2:DataModule2.IBQuery1.SQL.Add('WHERE (PODIE='''+LabeledEdit10.Text+''')');
3:DataModule2.IBQuery1.SQL.Add('WHERE (KOMNOTA='''+LabeledEdit10.Text+''')');
4:DataModule2.IBQuery1.SQL.Add('WHERE (LICEN='''+LabeledEdit10.Text+''')');
5:DataModule2.IBQuery1.SQL.Add('WHERE (MAC='''+LabeledEdit10.Text+''')');
6:DataModule2.IBQuery1.SQL.Add('WHERE (DOM='''+LabeledEdit10.Text+''')');
7:DataModule2.IBQuery1.SQL.Add('WHERE (NAME='''+LabeledEdit10.Text+''')');
8:DataModule2.IBQuery1.SQL.Add('WHERE (REMOTE='''+LabeledEdit10.Text+''')');  }
 
 
9:LabeledEdit10.Text:='';
end;
memo1.Font.Size:=15 ;
Memo1.text:=DataModule2.IBQuery1.SQL.Text;
//DataModule2.IBQuery1.Open;
end;

@Syparty · 31.08.2012, 14:16 **[ТС]**

получается что снова проблема в кавычках...?

вроде подправил (скобочка в конце и кавычки)

Delphi
1
2
Case sRadioGroup1.ItemIndex of
0:DataModule2.IBQuery1.SQL.Add('WHERE (POLSOVAT like ' + QuotedStr('%'+LabeledEdit10.Text+'%'')')) ;

теперь вроде записывает до конца и закрывает запрос

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

@Syparty · 31.08.2012, 14:24 **[ТС]**

вот скрины
где то лишняя кавычка...

@albor · 31.08.2012, 17:41

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

получается что снова проблема в кавычках...?

Похоже что да.

Уберите лишние кавычки и скобки:

Delphi
1
DataModule2.IBQuery1.SQL.Add('WHERE POLSOVAT like ' + QuotedStr('%' + LabeledEdit10.Text + '%'));

@SAMZ · 31.08.2012, 17:45

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

'ива' программа уже ни чего не найдет

ничего подобного! Если я правильно вас понял, то использованием starting или containing можно решить все ваши проблемы. При этом starting действительно ищет по началу строки, а containing по произвольному включению. В подавляющем большинстве случаев мне этого хватает. Для более сложных случаев иногда, при необходимости, использую конструкцию similar to. Она реализована на серверах FireBird, начиная с версии 2.1. С большой степенью вероятности эта конструкция должна быть представлена в InterBase.

@Syparty · 03.09.2012, 11:54 **[ТС]**

Ребят спасибо я разобрался

SAMAZ спасибо огромное я не знал о таком методе

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.08.2012, 18:14
	Syparty, у вас проблемы с одинарными кавычками, даже в теге код видно... 0

@Syparty 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 13
	31.08.2012, 12:43 [ТС]
	albor теперь вот такая ошибка IbQuery1 настроен верно это точно все перепроверил изначальный запрос в ibQuery SELECT * FROM POLSOVATEL блин да что не так то? Миниатюры 0

@Syparty 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 13
	31.08.2012, 14:24 [ТС]
	вот скрины где то лишняя кавычка... Миниатюры 0

@Syparty 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 13
	03.09.2012, 11:54 [ТС]
	Ребят спасибо я разобрался SAMAZ спасибо огромное я не знал о таком методе 0