Анализ текста

[Neymexa]

кто-нибудь помогите написать прогу которая анализировала текст.
Пример1 : Юзер дурак
результат:-1

Пример2:Юзер молодец
результат:+1

[Hollander]

По какому принципу текст анализировать???? По наличию слов дурак или молодец??? А если оба встречаются??? А если написано: Юзер не дурак????
Точнее задачу указывайте, т.к. решать анализ текста в общем смысле задача не из легкихи люди на это пол жизни тратят.

[Neymexa]

Если одно слово + а второе - то выдает 0 тоесть нейтральное.
На счет не вы правы - не дурак это +1

Сразу прошу помоч на счет этого эпизода
if Memo1.Lines=m[0] then
showmessage('1') ;
[Error] Unit1.pas(31): Incompatible types: 'String' and 'TStrings'
Что это значит?Несоответствие типов данных?

[OLEG'arh]

переменная m должна быть String.
var
m:string;

[Hollander]

а ты знаешь сколько слов у тебя в строке будет?

[Neymexa]

Обычное предложение т.е. примерно 10 слов. скорее всего меньше около 7

[Hollander]

Если хочешь помощи напиши конкретные условия.
Т.е. дана предложение: .... В нем если есть слова такое и такое, то делать это и т.д.
Пойми задача не решается по абстрактному описанию

[Neymexa]

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

Если хочешь помощи напиши конкретные условия.
Т.е. дана предложение: .... В нем если есть слова такое и такое, то делать это и т.д.
Пойми задача не решается по абстрактному описанию

В общем есть текст он будет сверять слова из массивов на + и -
я пока сам пытаюсь но не получается.
Пример:Юзер дурак.
Прога из массива поэлементно сравнивает слова находящиеся в нем если слово есть то результат -1
Я подробно объяснил?
Ты сильно не парься мне нужен толчок а дальше сам как нибудь

[Hollander]

В обшем, вот код который разбирает строку по словам, нашел где-то в сети. Текст берется из Memo, а слова кидаются в ListBox

procedure TForm1.Button1Click(Sender: TObject);
const DelSym = ' .,!?';
var Text,Word: string; i: integer;
begin
  Text:=Memo1.Lines.Text;
  for i := 1 to Length(Text) do
    if Pos(Text[i],DelSym) > 0 then
      Text[i]:=',';
 
  if Text[1] = ',' then
    Delete(Text,1,1);
  while Pos(',,',Text) > 0 do
    Delete(Text,Pos(',,',Text),1);
	
  repeat
    Word:=Copy(Text,1,Pos(',',Text)-1);
    Delete(Text,1,Length(Word)+1);
    ListBox1.Items.Add(Word);
  until Length(Text) = 0;
end;

Затем берешь свой массив и проверяешь есть ли слова в ListBox'е.

[Neymexa]

СПС в любом случае