Поиск слова в тексте

Posted by Chas under Delphi

Хочу выполнить в программе поиск по тексту: если текст, введенный в edit1 есть в memo1, то выделить его цветом.

-Jack-
С чего же начать?
Берем первый символ из edit2

Edit2.Text[1]

и сравниваем с каждым символом из мемо

memo1.Text[1]

В том случаи, если символы совпадают, то берем следующий символ из edit2 и сравниваем с символом из memo

If Edit2.Text[1]=memo1.Text[I] then // т.е. мы нашли первое совпадение

If Edit2.Text[2]=memo1.Text[I+1] // возможно и вторые символы тоже совпадают

Так же на заметку, чтобы узнать количество всех символов в Edit2 и memo используй функцию Length().

procedure TForm1.Button1Click(Sender: TObject);

var

I1, B,C, I : Integer;

result:Boolean;

begin

B:=0;

For I:=1 to Length(memo1.Text) do

begin

  I1:=1;

  If Edit1.Text[I1] = memo1.Text[I] then

  begin

    result:=true;

    B:=I1;

    C:=I;

    While result do

      begin

        If Edit1.Text[B] = memo1.Text[C] then

          begin

            // буквы совпали, проверяем следующие

            If B = Length(Edit1.Text) then

              begin

                // нашли слово полностью!

                  showmessage('Нашли');

                  result:=false;

              end;

            B:=B+1;

            C:=C+1;

          end

        else result:=false;

      end;

  end;

end;

end;

Накидал на скорую руку… В edit1 вписываем слово, которое нужно найти, в memo1 наш текст. Как мы находим слово, появляется сообщение нашли

тема на форуме

Похожие статьи

• Поиск слова в Memo
• Поиск нескольких слов в строке
• Найти в тексте буквы от А до Я
• Поиск нескольких слов в Memo
• Подсчитать кол-во одинаковых слов в Memo и вывести результат в переменную integer?
• Поиск и замена, заменить слово целиком
• Посчитать количество знаков в edit
• Перебор строк из Memo
• Скопировать html код из текстового файла
• Подсчитать количество символов в Edit