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

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

← →
Новочеркасский Волк ©   (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]

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

---

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

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

---

← →
Сергей М. ©   (2006-03-17 16:32) [10]

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


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


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


Твоя фраза ?

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

---

← →
Сергей М. ©   (2006-03-17 16:34) [11]

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

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

---

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

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



Память: 0.47 MB
Время: 0.039 c