spelling/ru: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Использование hunspell с Lazarus
2	2
3	3		> Note: Эта страница актуальна по состоянию на август 2018 года, но все меняется .....
4	4
5	5		Эта страница посвящена использованию библиотеки hunspell с Lazarus. Он описывает модель, которая работает, вроде как. Вам почти наверняка понадобится внести некоторые изменения для ваших конкретных целей, но, надеюсь, эта страница послужит вам хорошим началом.
6	6
7	7		Во-первых, на форуме есть несколько ссылок на некоторый код, который будет работать с библиотекой hunspell. Модуль hunspell.pas в значительной степени основан на этих блоках кода. У большинства нет информации о лицензии, и делается предположение, что она является «общеизвестной» и, следовательно, свободна от каких-либо ограничений. Я добавил немного, что решает проблему поиска файлов библиотеки и словаря. И установил разумный интерфейс.
8	8
9	9		Кроме того, пользователь [[https://forum.lazarus.freepascal.org/index.php?action=profile;u=55059 rvk]] с форума создал Windows 64-битную DLL, так как для пользователей Windows не было никакой альтернативы.
10	10
11	11		# О библиотеке Hunspell
12	12
13	13		Hunspell - это активный проект с открытым исходным кодом, распространяемый по открытой лицензии Mozilla. Библиотека hunspell используется в таких продуктах, как Libra Office, Open Office и Firefox. Его можно заставить работать на Windows, Linux и Mac (и, возможно, на кучах других платформ). См. ссылки на платформоспецифичные страницы ниже. Словари Hunspell легко доступны и, возможно, уже установлены на многих машинах. Даже если вы не можете получить доступ к библиотеке другого приложения, вы можете использовать его словарь.
14	14
15	15		Словари Hunspell поставляются в виде пары файлов .dic и .aff. Например, австралийский словарь состоит из en_AU.dic и en_AU.aff. Префикс 'en' обозначает его английский, а суффикс 'AU' говорит о его специфичности специально для Австралии. Как говорящий по-английски, я отмечаю, что словари en_US, кажется, всегда установлены, и я добавляю австралийские. Я не знаю, насколько распространен этот шаблон в не-англоязычных системах.
16	16
17	17		Словари можно найти здесь <https://github.com/LibreOffice/dictionaries>, а также некоторую информацию, связанную с этим, здесь <https://wiki.documentfoundation.org/Development/Dictionaries>
18	18
19	19		# Замечание насчет словарей
20	20
21	21		В некоторых случаях для корректного отображения предлагаемых слов словари должны быть закодированы в UTF-8. Если вы заметили, что некоторые слова отображаются неправильно — например, яблоко на польском — это jabłko, а вы получаете jab�ko, — это означает, что словари pl_PL.aff и pl_PL.dic должны быть преобразованы в UTF-8. Чтобы преобразовать словари в UTF-8 в Linux Debian (это должно работать в любом Linux, конвертированные словари можно использовать в Windows - проверьте также [эту ветку форума](http://forum.lazarus.freepascal.org/index.php/topic,44298.0.html)) выполните следующие действия:
22	22
23	23		1\. Запустить терминал как root
24	24
25		-	~~` su`~~
	25	+	```text
	26	+	su
	27	+	```
26	28
27	29		2\. Если он еще не установлен, установите hunspell (hunspell-pl для польского словаря — подробнее на [Debian Hunspell package](https://packages.debian.org/search?keywords=hunspell))
28	30
29		-	~~` apt-get install hunspell`\~~
30		-	~~` apt-get install hunspell-pl`~~
	31	+	```text
	32	+	apt-get install hunspell
	33	+	apt-get install hunspell-pl
	34	+	```
31	35
32	36		3\. Перейдите в /usr/share/hunspell/, где хранятся словари, и создайте папку dic
33	37
34		-	~~` cd /usr/share/hunspell/`\~~
35		-	~~` mkdir dic`~~
	38	+	```text
	39	+	cd /usr/share/hunspell/
	40	+	mkdir dic
	41	+	```
36	42
37	43		4\. Преобразуйте, например, словарь pl_PL.aff и pl_PL.dic. Используйте [ISO-8859-2](https://en.wikipedia.org/wiki/ISO/IEC_8859-2) (для Восточной Европы), [ISO-8859-1](https://en.wikipedia.org/wiki/ISO/IEC_8859-1) (или ISO-8859-15) для Западной Европы, [ISO-8859-5](https://ru.wikipedia.org/wiki/ISO_8859-5) для кириллицы и т.д.
38	44
39		-	~~` iconv -f ISO-8859-2 -t UTF-8 /usr/share/hunspell/pl_PL.aff \| sed 's/^SET ISO8859-2$/SET UTF-8/g' > dic/pl_PL.aff`\~~
40		-	~~` iconv -f ISO-8859-2 -t UTF-8 /usr/share/hunspell/pl_PL.dic > dic/pl_PL.dic`~~
	45	+	```text
	46	+	iconv -f ISO-8859-2 -t UTF-8 /usr/share/hunspell/pl_PL.aff \| sed 's/^SET ISO8859-2$/SET UTF-8/g' > dic/pl_PL.aff
	47	+	iconv -f ISO-8859-2 -t UTF-8 /usr/share/hunspell/pl_PL.dic > dic/pl_PL.dic
	48	+	```
41	49
42	50		5\. Скопируйте папку dic или словари из папки dic в свое приложение.
43	51
44	52		# Платформозависимость
45	53
46	54		## Linux
47	55
48	56		Во многих дистрибутивах Linux по умолчанию установлен Hunspell вместе с соответствующими языковыми словарями. Если нет, то, вероятно, это просто случай использования менеджера пакетов дистрибутива. Если ничего не помогает, возьмите исходник с сайта hunspell github и создайте его самостоятельно. Пользователи Linux любят это.
49	57
50	58		Чтобы проверить, установлена ли у вас библиотека hunspell, попробуйте эту команду
51	59
52		-	~~` ldconfig -p \| grep hunspell `~~
	60	+	```text
	61	+	ldconfig -p \| grep hunspell
	62	+	```
53	63
54	64		Точно так же вы можете найти некоторые словари с помощью
55	65
56		-	~~` ls -l /usr/share/hunspell `~~
	66	+	```text
	67	+	ls -l /usr/share/hunspell
	68	+	```
57	69
58	70		Если это не сработает, попробуйте
59	71
60		-	~~` find /usr -name *.aff `~~
	72	+	```text
	73	+	find /usr -name *.aff
	74	+	```
61	75
62	76		это займет немного больше времени.
63	77
64	78		## Windows
65	79
66	80		Установка библиотеки hunspell на Windows является более серьезной проблемой. По-видимому, нет предварительно скомпилированного 'комплекта', и большинство приложений Windows, которые используют Hunspell, похоже, статически связывают его, поэтому не осталось никаких hunspell.dll для использования. Но просто, чтобы быть уверенным, попробуйте поискать `hunspell.dll`. На сайте Hunspell github приведен рецепт его создания, но он включает установку MSYS2 и довольно сложен. Получающаяся DLL также нуждается вдобавок в паре gcc DLL.
67	81
68	82		К счастью, пользователь rvk с форума Lazarus создал нам хорошую статически (т.е. автономно) связанную DLL-библиотеку с использованием Microsoft Visual Studio Community 2015. Таким образом, вы можете использовать и распространять эту DLL-библиотеку вместе с вашей программой, подпадающей под действие публичной лицензии Mozilla.
69	83
70	84		Вы найдете эту DLL в комплекте с файлом лицензии на <https://github.com/davidbannon/hunspell4pas>, щелкните «DLL», щелкните по файлу dll, и вы увидите кнопку «Загрузить». Не забудьте также получить файл лицензии, он должен распространяться, так или иначе, с вашим приложением.
71	85
72	86		------------------------------------------------------------------------
73	87
74	88		Прим.перев.: Вы также можете посмотреть исходники интерфейса Hunspell для Lazarus здесь: [<https://github.com/cutec-chris/hunspell>](https://github.com/cutec-chris/hunspell)
75	89
76	90		------------------------------------------------------------------------
77	91
78	92		## Mac
79	93
80	94		На Mac'е автора, по-видимому, была установлена библиотека Hunspell при установке Sierra. Но, может быть, просто возможно, это пришло вместе с Firefox. Я хотел бы получить обратную связь .... \[уже установлено на Mojave и Catalina\]
81	95
82	96		> Note: См <https://opensource.apple.com/tarballs/hunspell/> для загрузки исходников v1.2.8.
83	97
84	98		Чтобы проверить, установлена ли у вас библиотека hunspell, попробуйте эту команду
85	99
86		-	~~` find / 2>&1 \| grep "\hunspell"`~~
	100	+	```text
	101	+	find / 2>&1 \| grep "\hunspell"
	102	+	```
87	103
88	104		она будет выполняться некоторое время, в зависимости от того, сколько файлов в вашей системе. Скорее всего, она найдет несколько файлов, включая некоторые, в вашем каталоге XCode. Однако конечным пользователям, вероятно, не будет установлен XCode. Один особенно интересный файл для меня был
89	105
90		-	~~` /usr/lib/libhunspell-1.2.dylib `~~
	106	+	```text
	107	+	/usr/lib/libhunspell-1.2.dylib
	108	+	```
91	109
92	110		Версия 1.2 немного старше, чем где-либо, но работала нормально. Если вы не можете найти пригодную для использования библиотеку, я предлагаю вам установить его с помощью менеджера пакетов, такого как MacPorts, Fink или brew. Следующая проблема заключается в том, что вам понадобятся словари. Аналогичная команда
93	111
94		-	~~` find / 2>&1 \| grep "\.aff"`~~
	112	+	```text
	113	+	find / 2>&1 \| grep "\.aff"
	114	+	```
95	115
96	116		опять же, медленная, она ищет по всему вашему диску. Я нашел команду
97	117
98		-	~~` /Applications/Firefox.app/Contents/Resources/dictionaries/en-US.aff `~~
	118	+	```text
	119	+	/Applications/Firefox.app/Contents/Resources/dictionaries/en-US.aff
	120	+	```
99	121
100	122		И быстрый 'ls' заверил меня, что есть соответствующие файлы en-US.dic, так что все хорошо.
101	123
102	124		Более опытный пользователь Mac может предложить лучшие стратегии поиска. Пожалуйста!
103	125
104	126		# Модуль Hunspell
105	127
106	128		При первоначальном создании этой страницы (2017?) я допустил серьезную ошибку и использовал код, у которого не было четкой лицензии или истории. Было высказано предположение, что тем самым я нарушил лицензию Hunspell, как и все, кто использовал ее с тех пор.
107	129
108	130		Чтобы исправить эту ситуацию, я выпустил новую версию Hunspell Wrapper, которая имеет довольно небольшую часть, только определения функций, с Hunspell (Лицензия: MPL 1.1/GPL 2.0/LGPL 2.1) и Hunspell Unit (Лицензия: Clear BSD License) в отдельных файлах. С точки зрения кодирования это почти идентично тому, что было здесь раньше.
109	131
110	132		См. <https://github.com/davidbannon/hunspell4pas>
111	133
112	134		Я удалил оболочку hunspell, которая раньше находилась на этой странице. Тот, что на Github выше, является заменой, вам нужны hunspell.pas и hunspell.inc. Оставшаяся часть файла представляет собой базовый test/demo проект Lazarus командной строки, который заменяет Demo 1.
113	135
114	136		## Demo 2 в полном графическом интерфейсе
115	137
116	138		Демо графического интерфейса Lazarus имеет больше смысла и была протестирована на Linux, Mac и Windows. Но это немного сложнее, \[чем\] скопировать и вставить.
117	139
118	140		Для этой демо вам понадобится форма с двумя TMemo: Memo1 и MemoMsg. Кнопка ButtonSpell, Tlistbox Listbox1. Сделайте следующие обработчики событий: FormCreate для главной формы; дважды щелкните по Listbox1 и \[дважды\] кликните по ButtonSpell.
119	141
120	142		Сначала вы должны создать объект hunspell и посмотреть, нашел ли он свою библиотеку, вот пример метода FormCreate () ....
121	143
122	144		``` pascal
123	145		uses hunspell;
124	146		var
125	147		Form1: TForm1;
126	148		Sp: THunspell;
127	149		DictPath : AnsiString;
128	150
129	151		procedure TForm1.FormCreate(Sender: TObject);
130	152		begin
131	153		SetDefaultDicPath();
132	154		Sp := THunspell.Create();
133	155		if Sp.ErrorMessage = '' then begin
134	156		MemoMsg.append('Library Loaded =' + Sp.LibraryFullName);
135	157		ButtonSpell.enabled := CheckForDict();
136	158		end else
137	159		MemoMsg.append(SP.ErrorMessage);
138	160		end;
139	161		```
140	162
141	163		В этом примере мы пишем сообщение о статусе в MemoMsg, это простой способ увидеть, что происходит. ButtonSpell НЕ включен, пока не будут установлены словари. Ожидаем этого ....
142	164
143	165		Теперь нам нужны два метода: один читает назначенный каталог и ищет возможные файлы словарей, другой управляет решениями. Если мы найдем только один словарный набор, используем его, если мы не найдем - пожалуемся. Но если мы найдем несколько, и это наиболее вероятно, мы должны спросить пользователя, какой словарь (то есть язык) он хочет использовать.
144	166
145	167		``` pascal
146	168		function TForm1.FindDictionary(const Dict : TStrings; const DPath : AnsiString) : boolean;
147	169		var
148	170		Info : TSearchRec;
149	171		begin
150	172		Dict.Clear;
151	173		if FindFirst(AppendPathDelim(DPath) + '*.dic', faAnyFile and faDirectory, Info)=0 then begin
152	174		repeat
153	175		Dict.Add(Info.Name);
154	176		until FindNext(Info) <> 0;
155	177		end;
156	178		FindClose(Info);
157	179		Result := Dict.Count >= 1;
158	180		end;
159	181
160	182		function TForm1.CheckForDict() : boolean;
161	183		begin
162	184		Result := False;
163	185		EditDictPath.Caption := DictPathAlt;
164	186		if not FindDictionary(ListBox1.Items, DictPath) then
165	187		MemoMsg.Append('ERROR - no dictionaries found in ' + DictPath);//[прим.перев.]: словари в DictPath не найдены
166	188		if ListBox1.Items.Count = 1 then begin // Один [словарь] вернулся точно.
167	189		if not Sp.SetDictionary(AppendPathDelim(DictPath) + ListBox1.Items.Strings[0]) then
168	190		MemoMsg.Append('ERROR ' + SP.ErrorMessage)
169	191		else
170	192		MemoMsg.Append('Dictionary set to ' + DictPath + ListBox1.Items.Strings[0]);// [прим.перев.]: словарь (первый из списка ListBox1) установлен в DictPath
171	193		end;
172	194		Result := SP.GoodToGo; // если count был точно один или FindDict не вернул ничего и ничего не изменилось
173	195		end;
174	196		```
175	197
176	198		Ах, вы спросите, но где нам искать словари? К сожалению, у меня нет хорошего решения для этого. Вот где я нашел свой -
177	199
178	200		``` pascal
179	201		procedure TForm1.SetDefaultDicPath();
180	202		begin
181	203		{$ifdef LINUX}
182	204		DictPath := '/usr/share/hunspell/';
183	205		{$ENDIF}
184	206		{$ifdef WINDOWS}
185	207		DictPath := ExtractFilePath(Application.ExeName);
186	208		//DictPath := 'C:\Program Files\LibreOffice 5\share\extensions\dict-en\';
187	209		{$ENDIF}
188	210		{$ifdef DARWIN}
189	211		DictPath := '/Applications/Firefox.app/Contents/Resources/dictionaries/';
190	212		//DictPathAlt := ExtractFilePath(Application.ExeName);
191	213		{$endif}
192	214		end;
193	215		```
194	216
195	217		Возможно, если другие пользователи сообщат, где они нашли пригодные для использования словари Hunspell, мы можем составить список для каждой платформы. Или просто выберите легкий путь и попросите пользователя найти несколько словарей и поместить их в каталог приложений на Windows и Mac. Ваши мысли очень приветствуются ....
196	218
197	219		Пока, если в указанном каталоге есть ровно один словарь, все хорошо. Но что, если их несколько? Наш ListBox1 содержит их список, если пользователь дважды щелкнет один из них, он вызовет этот метод -
198	220
199	221		``` pascal
200	222		procedure TForm1.ListBox1DblClick(Sender: TObject);
201	223		begin
202	224		if ListBox1.ItemIndex > -1 then
203	225		ButtonSpell.enabled := Sp.SetDictionary( AppendPathDelim(DictPath) + ListBox1.Items.Strings[ListBox1.ItemIndex]);
204	226		if SP.ErrorMessage = '' then begin
205	227		MemoMsg.Append('Good To Go =' + booltostr(Sp.GoodToGo, True));
206	228		MemoMsg.Append('Dictionary set to ' + AppendPathDelim(DictPath) + ListBox1.Items.Strings[ListBox1.ItemIndex]);
207	229		end else
208	230		MemoMsg.append('ERROR ' + SP.ErrorMessage);
209	231		end;
210	232		```
211	233
212	234		Предполагая, что у нас теперь есть все, что нужно, мы можем нажать кнопку ButtonSpell и вызвать это -
213	235
214	236		``` pascal
215	237		procedure TForm1.ButtonSpellClick(Sender: TObject);
216	238		begin
217	239		if not Sp.Spell(Edit1.text) then begin
218	240		Memo1.Lines.BeginUpdate;
219	241		Sp.Suggest('badspeller', Memo1.lines);
220	242		Memo1.Lines.EndUpdate;
221	243		end else
222	244		Memo1.Lines.Clear;
223	245		end;
224	246		```
225	247
226	248		Memo1 теперь содержит несколько советов о лучших способах написания \[слова\] неграмотному!
227	249
228	250		Важно! Не забудьте освободить наш объект hunspeller, утечки памяти - зло!
229	251
230	252		``` pascal
231	253		procedure TForm1.FormDestroy(Sender: TObject);
232	254		begin
233	255		Sp.free;
234	256		Sp := nil;
235	257		end;
236	258		```
237	259
238	260		Этот модуль делает значительно больше, но он представлен здесь в его наиболее урезанной форме для удобства чтения.
239	261
240	262		> Note: для новичков в Lazarus, методы с "(Sender: TObject)", показанные выше, не могут быть просто вставлены в ваш исходник, сначала используйте инспектор объектов формы, чтобы создать события, а затем вставьте мой пример кода в метод.
241	263
242	264		## Demo 3 - Lazspell - Tmemo
243	265
244	266		В этом примере использовался компонент TMemo.
245	267
246	268		![](/wiki-images/b/b3/Lazspell.gif)
247	269
248	270		Lazspell - пример проверки орфографии - из <https://github.com/Raf20076/Lazspell>
249	271
250	272		## Demo 4 - Lazspell 2-version 2 - TRichMemo
251	273
252	274		В этом примере использовался компонент TRichMemo.
253	275
254	276		![](/wiki-images/8/8c/Lazspell-ver2.gif)
255	277
256	278		Lazspell 2 v2 - пример проверки орфографии - изm <https://github.com/Raf20076/Lazspell-2-version-2>
257	279
258	280		## Demo 5 - Простая проверка орфографии
259	281
260	282		1\. Запустите IDE Lazarus
261	283
262	284		2\. Кликните Project -\> New Project -\> Choose -\> Application. Вы только что создали новое приложение. Теперь сохраните его
263	285
264	286		3\. Кликните File -\> Save as. Выберите папку, в которой будет сохранено ваше приложение. Сначала будет сохранен project1.lpi, затем unit1.pasunit1.pas
265	287
266	288		4\. Поместите hunspell.pas и hunspell.inc (from <https://github.com/davidbannon/hunspell4pas>) в вашу папку
267	289
268	290		5\. Поместите libhunspell.dll в папку с вашим приложением (вы должны загрузить ее отсюда <https://github.com/Raf20076/Lazspell> или <https://github.com/davidbannon/hunspell4pas>) в любом случае или соберите ее самостоятельно.
269	291
270	292		6\. Поместите словарь в папку приложения (оба файла), например pl_PL.aff, pl_PL.dic. Словари должны быть закодированы в UTF8. Скачать их можно отсюда <https://github.com/Raf20076/Lazspell/tree/master/dict>
271	293
272	294		7\. Положите на Form1 компонент TButton (Button1) с вкладки Standard
273	295
274	296		8\. Положите на Form1 компонен TMemo (Memo1) с вкладки Standard
275	297
276	298		9\. Положите на Form1 компонен TListbox (ListBox1) с вкладки Standard (здесь будут отображаться слова с ошибками)
277	299
278	300		10\. Кликните по кнопке Button1 на Form1 затем перейдите в ObjectInspector, щелкните по вкладке Events, затем дважды щелкните рядом с событием OnClik: это создаст событие OnClick, и код вставки (см. код всего приложения), начинающийся с
279	301
280	302		``` pascal
281	303
282	304		{Check spelling}
283	305		var
284	306		i : Integer;
285	307		MAX : Integer;
286	308		FillInArrayWithWords:TStringArray;
287	309		FillInString1: String;
288	310		FillInString2: String;
289	311		```
290	312
291	313		до
292	314
293	315		``` pascal
294	316
295	317		//Если слова нет в словаре, показать его в Listbox как ошибку
296	318		```
297	319
298	320		11\. Перейдите в ObjectInspector и щелкните Form1, затем щелкните вкладку Events, затем дважды щелкните рядом с OnCreate, это создаст событие OnCreate и вставит код (см. код всего приложения)
299	321
300	322		``` pascal
301	323		SpellCheck := THunspell.Create(True);
302	324		SpellCheck.SetDictionary('pl_PL.dic');//загружаем словарь
303	325		SpellCheck.GoodToGo := True;
304	326		```
305	327
306	328		12\. Оставаясь в ObjectInspector, щелкните Form1, затем щелкните вкладку Events, затем дважды щелкните рядом с OnDestroy, это создаст событие OnDestroy и вставит код (см. код всего приложения)
307	329
308	330		``` pascal
309	331		SpellCheck.free;
310	332		SpellCheck := nil;
311	333		```
312	334
313	335		13\. Затем в вашем коде разместите такие функции, как `ArrayValueCount` и т.д.
314	336
315	337		См. ниже код всего приложения, чтобы сравнить его с вашим.
316	338
317	339		``` pascal
318	340		//SpellChecker by Raf20076, Poland 2019
319	341
320	342		unit Unit1;
321	343
322	344		{$mode objfpc}{$H+}
323	345
324	346		interface
325	347
326	348		uses
327	349		Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
328	350		LazFileUtils, LCLProc, LazUtils, LazUtf8;
329	351
330	352		type
331	353		TForm1 = class(TForm)
332	354		Button1: TButton;
333	355		Label1: TLabel;
334	356		Label2: TLabel;
335	357		ListBox1: TListBox;
336	358		ListBox2: TListBox;
337	359		Memo1: TMemo;
338	360		procedure Button1Click(Sender: TObject);
339	361		procedure FormCreate(Sender: TObject);
340	362		procedure FormDestroy(Sender: TObject);
341	363		end;
342	364
343	365		var
344	366		Form1: TForm1;
345	367
346	368		implementation
347	369
348	370		uses hunspell;//поместите hunspell.pas и hunspell.inc в папку вашего приложения
349	371		//из https://github.com/davidbannon/hunspell4pas
350	372
351	373		var
352	374		SpellCheck: THunspell;
353	375
354	376		{$R *.lfm}
355	377
356	378		procedure TForm1.FormCreate(Sender: TObject);
357	379		begin
358	380		SpellCheck := THunspell.Create(True);
359	381		SpellCheck.SetDictionary('pl_PL.dic');//загружаем словарь
360	382		SpellCheck.GoodToGo := True;
361	383		end;
362	384
363	385		{Извлекаем слова из строки: НЕсимволы, пробелы, возврат каретки}
364	386
365	387		function ArrayValueCount(const InputArray: Array of string): Integer;
366	388		{Подсчет элементов в массиве}
367	389		var
368	390		i:Integer;
369	391		begin
370	392		result := 0;
371	393		for i := low(InputArray) to high(InputArray) do
372	394		if InputArray[i] <> ' ' then // 'между ними один пробел'
373	395		inc(result);
374	396		end;
375	397
376	398		function StripOffNonCharacter(const aString: string): string;
377	399		{Удаляем НЕсимволы из строки}
378	400		var
379	401		a: Char;
380	402		begin
381	403		Result := '';
382	404		for a in aString do begin //под знаками препинания цифры, которые нужно удалить из строки
383	405		if not CharInSet( a, ['.', ',', ';', ':', '!', '/',
384	406		'?', '@', '#', '$', '%', '&', '*', '(', ')', '{',
385	407		'}', '[', ']', '-', '\', '\|', '<', '>', '''', '"', '^',
386	408		'1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '_', '+',
387	409		'=', '~']) then //'„', '”'])эти метки делают ошибку: ожидается порядковое выражение, необходимо исправить
388	410		begin
389	411		Result := Result + a;
390	412		end;
391	413		end;
392	414		end;
393	415
394	416		function ReplaceCarriageReturn(s: string) : string;
395	417		{Заменяем возврат каретки одним пробелом}
396	418		var
397	419		i: Integer;
398	420		begin
399	421		Result:=s;
400	422		for i := 1 to Length(Result) do
401	423		if Result[i] in [#3..#13] then
402	424		Result[i] := ' ';//'Между ними один пробел'
403	425		end;
404	426
405	427		procedure TForm1.Button1Click(Sender: TObject);
406	428		{Проверяем орфографию}
407	429		var
408	430		i : Integer;
409	431		MAX : Integer;
410	432		FillInArrayWithWords:TStringArray;
411	433		FillInString1: String;
412	434		FillInString2: String;
413	435		begin
414	436		ListBox1.clear;
415	437		ListBox1.Items.Clear;
416	438
417	439		FillInString1 := ReplaceCarriageReturn(Memo1.Lines.Text);//берем текст из Memo1; заменяем возврат каретки
418	440		//одним пробелом (используя функцию ReplaceCarriageReturn) и помещаем внутрь FillInString1
419	441
420	442		FillInString2 := StripOffNonCharacter(FillInString1);//удаляем все НЕсимволы из FillInString1
421	443		//(используя функцию StripOffNonCharacter) и помещаем строку без НЕсимволов внутрь FillInString2
422	444
423	445		FillInArrayWithWords := FillInString2.split(' '); //разделяем строку на слова с помощью ' ' одного пробела
424	446		//(используя .split) и помещаем слова по отдельности в массив FillInArrayWithWords
425	447
426	448		MAX := ArrayValueCount(FillInArrayWithWords); //узнаем, сколько элементов в массиве
427	449		//(используя функцию ArrayValueCount)
428	450
429	451		for i := 0 to MAX -1 do
430	452		if not SpellCheck.Spell(FillInArrayWithWords[i]) then
431	453		ListBox1.Items.add(FillInArrayWithWords[i]);
432	454		//Берем слово из массива и проверяем по словарю через hunspell (используя функцию SpellCheck.Spell)
433	455		//Если слова нет в словаре, показываем его в Listbox, как ошибку
434	456		end;
435	457
436	458		procedure TForm1.FormDestroy(Sender: TObject);
437	459		begin
438	460		SpellCheck.free;
439	461		SpellCheck := nil;
440	462		end;
441	463
442	464		end.
443	465		```
444	466
445	467		Когда вы запустите свое приложение и введете какой-либо текст в Memo, а затем нажмете кнопку, приложение проверит, обнаружены ли какие-либо ошибки, и, если они будут найдены, отобразит их в ListBox. Основная проблема заключалась в том, как удалить возврат каретки и НЕсимволы, а затем как разбить текст на отдельные слова. Это непростая задача. Поэтому для этого есть три функции: функция `ReplaceCarriageReturn`, функция `StripOffNonCharacter` и функция `FillInString2.split`. Функция `FillInString2.split` на самом деле использует функцию `.split` из `SysUtils`. Надеюсь, код всего приложения не требует пояснений.
446	468
447	469		## Дальнейшее чтение и ссылки
448	470
449	471		<https://github.com/hunspell/hunspell>
450	472
451	473		<https://github.com/Homebrew> - вероятно, разумный способ получить Hunspell на вашем Mac, если его еще нет.
452	474
453	475		<https://github.com/tomboy-notes/tomboy-ng/releases> - содержит 64-битную Windows DLL в tomboy-ng_win64_\<ver\>.zip
454	476
455	477		<https://github.com/cutec-chris/hunspell>
456	478
457	479		---
458	480		From the Free Pascal wiki, page "spelling/ru", as it stood on 2022-10-04 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history