Поиск в Delphi7 через Edit

@mr.Hatiman · Регистрация: 23.01.2012

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

Мне нужно сделать так чтоб через Edit происходил поиск клиента и в DBgrid появлялись те клиенты у которых совпадают буквы. Поискал на форуме так ни чего и не нашел.
Вот что Я написал:

Delphi
1
2
3
4
5
6
7
8
9
10
11
Var help1,help2:string;
begin
help1:='%'+Unit1.Form1.Edit5.Text+'%';
help1:=QuotedStr(help2);
with unit2.DataModule2.ClienteQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from Cliente where Name like '+help2);
Open;
end;

Но только начинаешь вводить имя выскакивает ошибка: Неправильный синтаксис около конструкции like.
Выручайте товарищи!

@droider · 23.01.2013, 11:18

Delphi
1
SQL.Add('select * from Cliente where Name like %'+help2);

@mr.Hatiman · 23.01.2013, 11:41 **[ТС]**

Теперь пишет:
Неправильный синтаксис около конструкции "%"

@FIL · 23.01.2013, 11:45

Сообщение от mr.Hatiman

Но только начинаешь вводить имя выскакивает ошибка: Неправильный синтаксис около конструкции like.

У тебя этот код в OnChange Едита что ли забит? Тогда надо проверять Едит на пустоту.

@mr.Hatiman · 23.01.2013, 11:54 **[ТС]**

Да.
procedure TForm1.Edit5Change(Sender: TObject);

Добавлено через 1 минуту
Можешь чуток по подробнее?

Добавлено через 6 секунд
Можешь чуток по подробнее?

@FIL · 23.01.2013, 12:05

Сообщение от mr.Hatiman

Можешь чуток по подробнее?

Я предполагаю, что ошибка возникает когда Едит пуст - запрос получается:

SQL
1
SELECT * FROM Cliente WHERE Name LIKE '%%'

Поэтому попробуй добавить:

Delphi
1
if Edit5.Text = '' then Exit;

@mr.Hatiman · 23.01.2013, 12:52 **[ТС]**

Ты уже извини за тупость. но ты не можешь мне ткнуть пальцем куда мне вставить:
if Edit5.Text = 'Name' then Exit;

@FIL · 23.01.2013, 13:02

Если Едит пуст (например, ты все стер перед вводом нового значения), то выходим из обработчика:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Edit5Change(Sender: TObject);
Var help1,help2:string;
begin
  if Edit5.Text = '' then Exit;
  help1:='%'+Unit1.Form1.Edit5.Text+'%';
  help2:=QuotedStr(help1);
  with unit2.DataModule2.ClienteQuery do
  begin
    Close;
//    SQL.Clear;
    SQL.Text := 'select * from Cliente where Name like ' + help2;
    Open;
  end;
end;

Еще косяк заметил:

Delphi
1
help1:=QuotedStr(help2);

надо:

Delphi
1
help2:=QuotedStr(help1);

@mr.Hatiman · 23.01.2013, 13:12 **[ТС]**

Огромное, очень огромное спасибо))))) Заработало)))))

@droider · 23.01.2013, 13:29

gorfil, жирное спасибо

@alexminin007 · 23.12.2013, 18:12

а на делфи 2010 почему не работает ? ошибок не выводит и не работает (

@Ppz · 22.04.2017, 10:03

Спасибо огроменное! Очень нужная тема.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@mr.Hatiman 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 52
	23.01.2013, 11:41 [ТС]
	Теперь пишет: Неправильный синтаксис около конструкции "%" 0

@mr.Hatiman 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 52
	23.01.2013, 11:54 [ТС]
	Да. procedure TForm1.Edit5Change(Sender: TObject); Добавлено через 1 минуту Можешь чуток по подробнее? Добавлено через 6 секунд Можешь чуток по подробнее? 0

@mr.Hatiman 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 52
	23.01.2013, 12:52 [ТС]
	Ты уже извини за тупость. но ты не можешь мне ткнуть пальцем куда мне вставить: if Edit5.Text = 'Name' then Exit; 0

@mr.Hatiman 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 52
	23.01.2013, 13:12 [ТС]
	Огромное, очень огромное спасибо))))) Заработало))))) 0

@droider 4882 / 2819 / 862 Регистрация: 04.10.2012 Сообщений: 10,248
	23.01.2013, 13:29
	gorfil, жирное спасибо 0

@alexminin007 10 / 12 / 4 Регистрация: 22.10.2012 Сообщений: 120
	23.12.2013, 18:12
	а на делфи 2010 почему не работает ? ошибок не выводит и не работает ( 0

@Ppz 0 / 0 / 0 Регистрация: 22.04.2017 Сообщений: 20
	22.04.2017, 10:03
	Спасибо огроменное! Очень нужная тема. 0