Проверка слов

← →
Ghost del vonte © (2010-12-06 00:51) [0]

Доброго времени суток всем!

Возникла ситуация: мне необходимо произвести проверку, русское ли слово было введено в поле редактирования TEdit, подскажите пожалуйста как это можно осуществить?

← →
Германн © (2010-12-06 00:55) [1]

Использовать средства MS Office.

← →
Юрий Зотов © (2010-12-06 01:00) [2]

> Ghost del vonte © (06.12.10 00:51)

Все зависит от того, что считать русским словом: любую последовательность русских букв, или только ту, что есть в словаре.

← →
Leonid Troyanovsky © (2010-12-06 01:04) [3]

> Юрий Зотов © (06.12.10 01:00) [2]

> русских букв, или только ту, что есть в словаре.

Либо порождаемую носителем оного языка.

--
Regards, LVT.

← →
Ghost del vonte © (2010-12-06 01:11) [4]

Мне нужно определить, русское ли слово было введено в TEdit...

← →
Ghost del vonte © (2010-12-06 01:12) [5]

> Все зависит от того, что считать русским словом: любую последовательность
> русских букв, или только ту, что есть в словаре.

Мне надо определить введенное слово...

← →
Andy BitOff © (2010-12-06 01:13) [6]

Слово, это по вашему что?

← →
Ghost del vonte © (2010-12-06 01:15) [7]

> Слово, это по вашему что?

Пользователь вводит слово, и чтобы работать с ним, мне надо определить - русское ли оно? Чтобы ошибок не было.... можно и по буквам проверку сделать, но как?

← →
Германн © (2010-12-06 01:16) [8]

> Мне нужно определить, русское ли слово было введено в TEdit.
> ..

Привидения не читают ответы.
Это их проблемы.

← →
Andy BitOff © (2010-12-06 01:20) [9]

> Ghost del vonte © (06.12.10 01:15) [7]

Хм...
Т.е. Для вас слово, это набор символов набранных в русской раскладке клавиатуры, не разделенных пробелом, разделителем или другим служебным символом. Так?

← →
Ghost del vonte © (2010-12-06 01:22) [10]

> Хм...
> Т.е. Для вас слово, это набор символов набранных в русской
> раскладке клавиатуры, не разделенных пробелом, разделителем
> или другим служебным символом. Так?

Именно! Не выражения а именно одно слово! Наврено придется создавать массив русского алфавита и по нему сверять каждую букву...

← →
Andy BitOff © (2010-12-06 01:25) [11]

> Ghost del vonte © (06.12.10 01:22) [10]

А как быть со словом "уерцерцекуепуккапукп"? Оно полностью соотвествует правилам.

← →
Германн © (2010-12-06 01:27) [12]

Ыщё раз
http://www.gunsmoker.ru/2008/10/x-y-z.html

← →
Ghost del vonte © (2010-12-06 01:27) [13]

> А как быть со словом "уерцерцекуепуккапукп"? Оно полностью
> соотвествует правилам.

Важен не порядок букв, а то, какие они! В том то и дело, что надо определить - русские ли они? В русском слове могут засунуть и пару английских букв!

← →
Юрий Зотов © (2010-12-06 01:28) [14]

> Ghost del vonte © (06.12.10 01:22) [10]

Не придется, все уже украдено до нас.

for i := 1 to Length(Edit1.Text) do
if not (Edit1.Text[i] in ["а".."я", "А".."Я"]) then
raise Exception.Create("Нерусская буква: " + Edit1.Text[i]);

← →
Andy BitOff © (2010-12-06 01:29) [15]

Наконец-то выяснили =)
Ну дальше уже без меня, мне не интересно.

← →
Ghost del vonte © (2010-12-06 01:31) [16]

> Юрий Зотов © (06.12.10 01:28) [14]

Спасибо! Счаз проверю! За юмор тоже спасибо всем!))

← →
Юрий Зотов © (2010-12-06 01:34) [17]

А еще лучше вставить проверку в обработчик OnKeyPress:

if not (Key in ["а".."я", "А".."Я"]) then
Key := #0;

← →
Юрий Зотов © (2010-12-06 01:35) [18]

Точнее, так:

if not (Key in [ #8, "а".."я", "А".."Я"]) then
Key := #0;

← →
Ghost del vonte © (2010-12-06 01:37) [19]

> А еще лучше вставить проверку в обработчик OnKeyPress:
>
> if not (Key in ["а".."я", "А".."Я"]) then
> Key := #0;

Да, действительно! Благодарю!

← →
Германн © (2010-12-06 01:41) [20]

> if not (Key in [ #8, "а".."я", "А".."Я"]) then
> Key := #0;
>

Значит клавишу Delete не любим.

← →
Юрий Зотов © (2010-12-06 01:44) [21]

> Германн © (06.12.10 01:41) [20]

А ты проверь. Вдруг она все же будет работать...
:o)

← →
Германн © (2010-12-06 01:53) [22]

> Юрий Зотов © (06.12.10 01:44) [21]

Не хочу проверять. И так ясно, что она сработает как нужно.
Это я сглупил спутав keypress c keydown.
<offtop>
Если б ты только знал, сколько я прошлой ночью "принял на грудь"! Я и сам этого не знаю. :)
</offtop>

← →
Димка На (2010-12-06 02:00) [23]

а вот про ё забыли:)

> Димка На (06.12.2010 02:00:23) [23]

Ё моё

> А еще лучше вставить проверку в обработчик OnKeyPress:
>
> if not (Key in ["а".."я", "А".."Я"]) then
> Key := #0;

То есть "Баба-Яга" - это чисто ипонское слово.

> В русском слове могут засунуть и пару английских букв!

Критерии растут. Теперь еще и процент букв считать нужно...
Видимо, Microsoft решила переработать модуль проверки орфографии с учетом современных особенностей русского языка, чтобы не ругаться на слова вроде "Меdвеd", "спс" и пр. :)

> То есть "Баба-Яга" - это чисто ипонское слово.

А бабу-ягу можно cкопипастить через Shift+Insert или контекстное меню :)

> Юрий Зотов © (06.12.10 01:35) [18]
> Точнее, так:
>
> if not (Key in [ #8, "а".."я", "А".."Я"]) then
> Key := #0;

Тогда уж лучше, имхо
if Key in ["а".."z", "А".."Z"] then
Key := #0;

Хотя да, тогда можно будет по турецки вводить. Непорядок =)

> Хотя да, тогда можно будет по турецки вводить. Непорядок
> =)

По-турецки - это вряд-ли, а вот псевдографику, спец.символы и всякие длинные пробелы - пропустит. Цифры ещё.

> "Баба-Яга" - это чисто ипонское слово

А то !
Всё то что не произносится через "Ё", "чистарусским" не считается)

← →
Дмитрий Белькевич (2010-12-09 21:13) [31]

Еще про версию Делфи забыли, ну да ладно.

> Медвежонок Пятачок © (06.12.10 10:30) [25]
> То есть "Баба-Яга" - это чисто ипонское слово.

Это даже целых два чисто ипонских слова.

Проверка слов Найти похожие ветки