проверка "не с глаголами" в текстовом редакторе (делфи)

[anburadeon]

Здравствуйте! Итак, задача состоит в том чтобы найти ошибки в тексте, а именно "не" с глаголами, хотя бы с окончанием "-ть". Слово в котором находится ошибка выделить красным цветом.
Например: В этой ситуации ничего несделать. Нетрогать ничего!
Результат: В этой ситуации ничего несделать. Нетрогать ничего!
т.е. исправлять не нужно.
заранее спасибо!

[NSvirus]

а если я или пользователь напишет следующий текст:

Мать ходила не жать. или как вариант дурака:
*невыфавыфть

Как вы определите где глагол, а где флуд или существительное???

[anburadeon]

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

[Stilet]

Что-то типа такого?

var k,e,i:integer;      s:string;
begin   i:=1;
While i<>0 do begin
 k:=Length(RichEdit1.Lines.Text) - i;
 i:=RichEdit1.FindText('не',i,k,[]);
 k:=Length(RichEdit1.Lines.Text) - i;
 e:=RichEdit1.FindText(' ',i,k,[]);
 s:=copy(RichEdit1.Lines.Text,i+1,e-i);
 if (pos(' ',s)=0)and(copy(s,length(s)-2+1,2)='ть')
 then begin
  RichEdit1.SelStart:=i;RichEdit1.SelLength:=e-i;
  RichEdit1.SelAttributes.Color:=clred;
 end;
 i:=e+1;
end;
end;

[anburadeon]

большое спасибо! он ищет только первое слово)) ну а дальше я сам доделаю. Мысль у меня та же была но до ума ее не довел!(( спасибо!

[Stilet]

он ищет только первое слово

Как это????
Быть того не может - у меня ищет везде.

[Serge_Bliznykov]

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

в данный момент главное, чтобы слово начиналось с "не" а заканчивалось на "ть"

anburadeon, плохой алгоритм!
например, эти слова будет пытаться разделить:
НЕЖИТЬ
НЕЧИСТЬ
НЕЖНОСТЬ
НЕЛЕПОСТЬ
НЕМИЛОСТЬ
НЕНАВИСТЬ
НЕРВНОСТЬ
НЕЯРКОСТЬ
НЕЯСНОСТЬ

а зато вот это будет хорошо:
НЕ ПИШУ, НЕПИСАЛ И НЕБУДУ ПИСАТЬ ГРАМОТНО.