|
Вопрос # 103/ вопрос открыт / |
|
Доброе время суток, господа Программисты. Подскажите пожалуйста. У нас есть БД Access.
Допустим нам нужно найти телефон 15489.
Я пишу:(в прил. к вопр.).
Но, пока я не напишу полностью номер телефона ответа не будет.
А мне нужно чтобы я писал первые числа и мне выдавали ответ с номерами, которые начинаются на эти чифры. Заранее благодарен!!! Жду вашего ответа.
Приложение: Переключить в обычный режим- procedure TForm1.Edit1Change(Sender: TObject);
- begin
- if Length(Edit1.Text)>0 then
- ADOTable1.Filtered:=true
- else ADOTable1.Filtered:=false;
-
- end;
 |
Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 14 августа 2006, 16:44
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Помфюк Владимир Степанович
Здравствуйте, Stalker!
ADOTable1.Filter:='Телефон LIKE ''%'+Edit1.Text+'%''';
Ответ #2. Отвечает эксперт: MFred
Здравствуйте, Stalker!
Я этим кодом сам писал свой справочник.
Взято с http://delphiworld.narod.ru
Приложение: Переключить в обычный режим- procedure Edit1OnChange(...);
- var
- i: integer;
- begin
- if not updating then
- exit;
-
-
- updating := false;
- Table1.FindNearest([Edit1.text]);
- ListBox1.clear;
- i := 0;
- while (i < 5) and (not (table1.eof)) do
- begin
- listbox.items.add(Table1.fields[0].asString);
- inc(i);
- table1.next;
- end;
- listbox1.itemindex := 0;
- end;
-
 |
Ответ отправил: MFred (статус: 1-ый класс)
Время отправки: 15 августа 2006, 13:10
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
| 
