Выделение текста

[Kib]

Есть: Memo1, Button1, RichEdit1, RichEdit2.
Нужно сделать так: Пользователь вводит слово или предложение в поле Memo1, нажимает на кнопку Button1 и в полях RichEdit1 и RichEdit2 выделяются все слова или предложения введеные в поле Memo1.

Как это можно реализовать? Заранее благодарен.

[psycho-coder]

Вот в принципе пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  textPos: Integer;
begin
  textPos := Pos (Memo1.Text, RichEdit1.Text);
  if textPos > 0 then
  begin
    RichEdit1.SelStart := textPos - 1;
    RichEdit1.SelLength := Length(Memo1.Text) ;
    RichEdit1.SelAttributes.Color := clBlue;
    RichEdit1.SelAttributes.Style := [fsBold];
  end;

  textPos := Pos (Memo1.Text, RichEdit2.Text);
  if textPos > 0 then
  begin
    RichEdit2.SelStart := textPos - 1;
    RichEdit2.SelLength := Length(Memo1.Text);
    RichEdit2.SelAttributes.Color := clBlue;
    RichEdit2.SelAttributes.Style := [fsBold];
  end;
end;

А там в цикле двигаешь курсор и делаешь тоже самое.
Дерзай

[Kib]

Двигаю курсор, но pos() все равно начинает искать от начала.

Сдалал так:

uses StrUtils;
...
var
  textPos: Integer;
  i: integer;
  curtext: integer;
begin
  curtext:=0;
  for i:=0 to Length(RichEdit1.Text) do
  begin
  textPos := PosEx(Memo1.Text, RichEdit1.Text,curtext);
  if textPos > 0 then
  begin
    RichEdit1.SelStart := textPos - 1;
    RichEdit1.SelLength := Length(Memo1.Text) ;
    RichEdit1SelAttributes.Color := clBlue;
    RichEdit1SelAttributes.Style := [fsBold];
    curtext:= textPos+Length(Memo1.Text);
  end;
  end;
...

Спасибо тебе psycho-coder.

[psycho-coder]

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

Сдалал так:

В этом и заключался смысл моего поста. Что бы ты сам тоже думал