[Delphi] Выделение частей речи в тексте

[vince]

Ребята! Помоги мне пож-ста с написанием проги. Мне нужно, чтобы прога выделяла части речи из текста, например, сущ-ые, глаголы, прилагательные. Как и каким образом это можно сделать?

[Arigato]

Первое, что приходит в голову - по окончаниям. Но могут быть нестыковки.
Задача очень не простая.

[vince]

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

Первое, что приходит в голову - по окончаниям. Но могут быть нестыковки.
Задача очень не простая.

Я начал проверять по окончаниям, но например окончание у глаголов -АЛ, также есть и в сущ-ых( напр, генерАЛ). Также с прилагательными....

[vince]

[I]procedure TForm1.BitBtn7Click(Sender: TObject);
var i,j:integer; b,bb,bbb,bb1,prist,prist3,prist2,pr ist4,syf3,syf7:string;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
b:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-1,2);
bb:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-2,3);
bb1:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-3,4);
bbb:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-3,5);
syf3:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-3,2); //2 буквы перед окончанием из 2 букв
syf7:=copy(Memo1.Lines[i],length(Memo1.Lines[i])-4,2); //2 буквы перед окончанием из 3 букв
prist2:=copy(Memo1.Lines[i],1,1); {из 1 буквы}
prist3:=copy(Memo1.Lines[i],1,2); {из 2 букв}
prist:=copy(Memo1.Lines[i],1,3); {из 3 букв}
prist4:=copy(Memo1.Lines[i],1,4); {из 4 букв}

{проверяю глаголы}
if
((bb='ать') and (bbb <> 'цать'))or (bb='еть') or (bb='ить') or(bb='оть')
or (bb='уть') or (bb='ють') or(bb='ыть') or (bb='ять')
or (bb='ете')or (bb='ите') or (bb='ает')
or (bb='ишь')or(bb='ешь')or (bb='нул') or (bb='ули')
or (bb='ись') or (bb='йти')
or (((bb='уть') or (bb='ать')or (bb='ить')or (b='ем') or(b='ал') or (b='ил')or (b='ел'))
and ((prist2='с') or (prist2='в') or (prist3='от')or (prist3='об')or (prist3='со')or (prist3='за')or (prist3='по')
or (prist3='до') or (prist='при') or(prist='пре') or (prist='под') or (prist='обо') or(prist4='пере') ))

or (((bb='уть') or (bb='ать')or (bb='ить')or (b='ем') or(b='ал') or (b='ил')or (b='ел'))
and ((prist2='С') or (prist2='В') or (prist3='От')or (prist3='Об')or (prist3='Со')or (prist3='За')or (prist3='По')
or (prist3='До') or (prist='При') or(prist='Пре') or (prist='Под') or (prist='Обо') or(prist4='Пере') ))

or ((b='ть') and (((syf3='ив') or (syf3='ыв')) and ((prist='под') or(prist='при') or (prist='Под') or(prist='При') )))
or ((bb='ать') and (((syf7='ив') or (syf7='ыв')) and ((prist3='По')or (prist3='по') )))
or ((bb='ать') and ((syf7='ов') or (syf7='ев') or (syf7='ич')))
or ((b='ся') and ((prist4='пере') or (prist4='Пере')) )
or ((b='ть') and (syf3='ну'))
or ((b='ал') and ((syf3='ыв') or (syf3='ив')))
or (bb1='ться') or (bb='тся')
and (Memo1.Lines[i] <> Memo4.Lines[j])

then Memo8.Lines.add(Memo1.Lines);

[vince]

Вот, что только приходит в голову насчет глаголов...
Может кто то может подсказать, что дальше нада сделать

[Arigato]

Всегда будут исключения.
Может это решается полной базой слов?

[vince]

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

Всегда будут исключения.
Может это решается полной базой слов?

Вот что Хз, то ХЗ. и где эту базу взять то?!

[Arigato]

У меня есть база русских слов на, примерно, 200000 слов, но там в перемешку, глаголы, прилагательные и существительные.
В инете поискать можно. Хотя, опять же, в такой базе могут быть далеко не все слова.

[Serge_Bliznykov]

Ребята, да расслабьтесь. Подобные задачи решают целые институты, да и то не очень успешно.
Тут же без ИИ качественно не сделаешь - нужно разбирать предложение по смыслу написанного. одним словарём задачу не решишь (да и со словарём будут проблемы - там же морфология, словообразование :-( )
Пример:
У меня разбилось стекло.
Молоко стекло на пол.
Сыпь была по всему телу.
Сыпь крупу в карман.

и т.д. и т.п.

p.s. поищите на форуме. Точно помню, подобная тема поднималась...