Ошибка: 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 спасибо огромное я не знал о таком методе

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@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