Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Вниз

Преобразование 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 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
3-25700
Yrtimd
2004-02-10 18:27
2004.03.09
Как синхронизовать две базы Access?


14-25897
Oyster
2004-02-16 12:18
2004.03.09
TblEdit


8-25830
Kein
2003-10-27 18:55
2004.03.09
Вопрос к тем кто работал с DelphiX


3-25686
Марат
2004-02-11 08:24
2004.03.09
Очистка DBGrid


1-25804
NPR2
2004-02-25 13:28
2004.03.09
запуск процедуры в определенное время





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский