Проверка орфографии (Делфи)

[Simply-Art]

Как можно БЕЗ использования сторонних программ и пакетов, типа Ворд, сделать проверку орфографии в мемо. Принцип такой- написал текст, нажал проверка и если найдено не правильно написанне слово, вылазит окно со словами. Если нет готовых программ, подскажите хотя бы алгоритм, хоть лучше что нибудь набрасась в Делфи

[Карась]

Наипростейшую проверку можно реализовать проверкой написанного слова с базой. Если в базе такого слова нет значит ошибка.....

Что касается построения предложений то тут сложнее....

[morgoth2]

Еще раз о функции проверки орфографии...
Имеется Форма (среда разработки - Delphi 5), в ней поле Memo, текст в нем, и две Button.
Как реализовать, чтобы при нажатии на Button1 выводилась форма проверки орфографии из пакета Microsoft Office 2003,
а при нажатии Button2 - выводился тезаурус?
Помогите пожалуйста!

PS Гуглом нашел статью, но без рисунков. Вот здесь:
http://www.delphihelp.org/delphi_spell.html

[N!ckeL]

В русском языке по окончанию можно определить что это за слово (глагол, существительное и т.д.), любое предложение должно иметь основу (существительное + глагол, или просто один член предложения(существительное)). Еще можно определить глагол и -не с глаголом раздельно проверять.
Окончание глаголов:
-ал -ала -ать и т.д.
Так же можно проверить запятые перед предлогами -а -но.

[morgoth2]

А как вызвать форму проверки правописания и тезаурус?

[Serge_Bliznykov]

Сообщение от N!ckeL

В русском языке по окончанию можно определить что это за слово

повеселили... :-))
Это далеко не так... (слово вокзал, например :-)
Реально только использовать интернет-сервисы (не знаю точно, но думаю, что такие есть), либо, задействовать готовую библиотеку (хотя бы того же ворда) разумеется, если не будет этих библиотек - проверка работать не будет...
___________________________________ __________

morgoth2, так что Вам в статье не понравилось? - на первый взгляд - всё грамотно и достаточно подробно.
А рисунок там один и к делу отношения не имеет :-) -
Кстати, эта же статья вошла в DelphiWorld...

[morgoth2]

Сообщение от Serge_Bliznykov

повеселили... :-))
Это далеко не так... (слово вокзал, например :-)
Реально только использовать интернет-сервисы (не знаю точно, но думаю, что такие есть), либо, задействовать готовую библиотеку (хотя бы того же ворда) разумеется, если не будет этих библиотек - проверка работать не будет...
___________________________________ __________

morgoth2, так что Вам в статье не понравилось? - на первый взгляд - всё грамотно и достаточно подробно.
А рисунок там один и к делу отношения не имеет :-) -
Кстати, эта же статья вошла в DelphiWorld...

В статье компонентам присваиваются не стандартные имена (кнопкам, списку и форме с проверкой). И не полностью указано, какому компоненту присваивается имя.
Получилось вызвать через OLE Word, отправить в него текст из Memo и даже вызвать мастер проверки орфографии. Но вот как сделать, чтобы окно проверки правописания выводилось отдельно, т.е. чтобы окно Word-а было скрыто, а мастер проверки был активен?

[mutabor]

Если нет готовых программ, подскажите хотя бы алгоритм, хоть лучше что нибудь набрасась в Делфи

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

[morgoth2]

Сообщение от mutabor

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

Вот что получилось у меня:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=Memo1.Lines.GetText; //В переменной s "сидит" текст из поля Memo
WordDocument1.Range.Set_Text(s);// Отправляем в Word этот текст
WordDocument1.CheckSpelling(); //запускаем проверку орфографии
WordDocument1.Activate();
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
//По нажатию на эту кнопку в поле Memo загоняется исправленный в Word-е
//текст
Memo1.Clear(); //Очищаем Memo от старого текста
s:=WordDocument1.Range.Get_Text(); //В переменную s загоняем текст из Word-а
Memo1.Text:=s; //Теперь в Memo лежит исправленный текст
//Только, блин, почему-то не разбивается на строки
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var SaveChanges:OleVariant; //Параметр закрывания Worda
begin
SaveChanges:=False;// Закрыть без сохранения изменений
WordDocument1.Close(SaveChanges);
WordApplication1.Disconnect();//закрываем Word.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear();//Очищаем Memo
WordApplication1.Visible:=True;

end;

В аттаче - исходники с коментариями и скомпилированный проект. Посмотрите плыз, что можно поправить?

[Simply-Art]

To morgoth2 думаю можно было создать отдельную тему и в другом разделе. Ну да ладно. По моему вопросу вроде всю перспективу понял - это только проверка орфографии путем тупого сравнивания с базой. Жаль, но это хоть чтото