Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 103

/ вопрос открыт /

Доброе время суток, господа Программисты. Подскажите пожалуйста. У нас есть БД Access.
Допустим нам нужно найти телефон 15489.
Я пишу:(в прил. к вопр.).
Но, пока я не напишу полностью номер телефона ответа не будет.
А мне нужно чтобы я писал первые числа и мне выдавали ответ с номерами, которые начинаются на эти чифры. Заранее благодарен!!! Жду вашего ответа.

Приложение:
  1. procedure TForm1.Edit1Change(Sender: TObject);
  2. begin
  3. if Length(Edit1.Text)>0 then
  4. ADOTable1.Filtered:=true
  5. else ADOTable1.Filtered:=false;
  6.  
  7. end;


Geron Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 14 августа 2006, 16:44
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Помфюк Владимир Степанович

Здравствуйте, Stalker!
ADOTable1.Filter:='Телефон LIKE ''%'+Edit1.Text+'%''';

Ответ отправил: Помфюк Владимир Степанович (статус: Абитуриент)
Время отправки: 14 августа 2006, 16:53

Ответ #2. Отвечает эксперт: MFred

Здравствуйте, Stalker!
Я этим кодом сам писал свой справочник.
Взято с http://delphiworld.narod.ru

Приложение:
  1. procedure Edit1OnChange(...);
  2. var
  3. i: integer;
  4. begin
  5. if not updating then
  6. exit;
  7.  
  8.  
  9. updating := false;
  10. Table1.FindNearest([Edit1.text]);
  11. ListBox1.clear;
  12. i := 0;
  13. while (i < 5) and (not (table1.eof)) do
  14. begin
  15. listbox.items.add(Table1.fields[0].asString);
  16. inc(i);
  17. table1.next;
  18. end;
  19. listbox1.itemindex := 0;
  20. end;
  21.  


Ответ отправил: MFred (статус: 1-ый класс)
Время отправки: 15 августа 2006, 13:10


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 октября 2017, 20:33
Выполнено за 0.03 сек.
Рейтинг@Mail.ru