Скачать: CL | DM;

Преобразование Char в Word   Найти похожие ветки 

← →
Kraj   (2004-02-26 15:40) [0]

Нужно в OnKeyUp отловить отпускание русских клавиш т.е. при нажатии клавиши символ попадает в Edit, а при отпускании запускается запрос на поиск по базе. Если отлавливать в OnKeyPress то поиск отстает на один символ т.е. запускается сначала запрос, а поттом символ попадает в Edit, что приводит к поиску по базе без учета последнего символа (во блин нагородил). Ничего лучше не придумал как запускать запрос в OnKeyUp но там реагирует на нажатие всех клавиш. Удалось отловить Enter и Backspace (#13 и #8 соответственно), а на русские символы не реагирует. Преобразовать Word в Char можно через Chr(), а вот как наоборот Char в Word не знаю, может кто поможет или есть другое решение или где ошибка
if not (chr(Key) in ["а".."я",#13,#8]) then
Key:=0

---

← →
Ega23 ©   (2004-02-26 15:42) [1]

Ord

---

← →
VAleksey ©   (2004-02-26 15:47) [2]

Насколько я понял, нужен инкрементальный локатор?
Тогда так:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.Locate("Field",Edit1.Text,[loCaseInsensitive, loPartialKey]);
end;

PS
Вместо Locate, можно использовать запрос.
PPS
Сабж реализуется с помощью функции Ord.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c