Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Правильный поиск через OnKeyPress 
:(
    Опции темы
dimych83
Дата 2.4.2008, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 21.3.2007
Где: Красноярск

Репутация: нет
Всего: нет
Уж не знаю в какую ветку лучше обратится с этим вопросом smile

Есть связанные ADOTable и DBGrid. Есть TGroupBox и TEdit. В GroupBox перечислены несколько полей таблицы которую содержит ADOTable. Edit используется как поле для поиска по выбранному в GroupBox полю.
 
Код

procedure TFPacientList.rgSortClick(Sender: TObject);
begin
  case rgSort.ItemIndex of
    0: TablePacientList.Sort := 'id';
    1: TablePacientList.Sort := 'name';
    2: TablePacientList.Sort := 'date_in';
  end;
  edSearch.Text := '';
end;

procedure TFPacientList.edSearchKeyPress(Sender: TObject; var Key: Char);
var
  search_str: Variant;
begin
  search_str := edSearch.Text;
  if rgSort.ItemIndex = 0 then
    if edSearch.Text <> '' then
      search_str := StrToInt(edSearch.Text);

  if Length(search_str) > 0 then
    TablePacientList.Locate(TablePacientList.Sort,search_str,[loPartialKey,loCaseInsensitive]);
end;


Но проблема такая - при срабатывании OnKeyPress, при вводе 1го символа, в свойстве edSearch.Text почему-то пусто как и в Key, при 2ом нажатии туда попадает 1ый символ и т.д. То есть получается чтобы перейти на запись с id, скажем, 25 - надо выбрать в GroupBox поле "id" и в строку поиска ввести "25" и еще 3ий символ, потому как при вводе 2ой цифры "5" поиск не происходит.
Что-то я понять не могу - из-за чего? Подскажите пожалуйста!

Это сообщение отредактировал(а) dimych83 - 2.4.2008, 12:28
PM MAIL ICQ   Вверх
1Andrey1
Дата 2.4.2008, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.9.2007

Репутация: 1
Всего: 4
а если использовать не OnKeyPress, а OnChange
PM MAIL ICQ   Вверх
dimych83
Дата 3.4.2008, 04:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 21.3.2007
Где: Красноярск

Репутация: нет
Всего: нет
Ага, уже дошло smile
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0398 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.