Найти слова в переменной

[Shouldercannon]

1. Есть переменная s типа string. Её содержимое: Некое предложение, в котором встречается слово. Нужно найти это слово и совершить над ним действие.
2. Добавить в Memo этот же текст, но к выделенному жирным прибавить [] и должно получиться: Некое предложение, в котором встречается [слово]. Нужно найти это [слово] и совершить над ним действие.
Помогите, пожалуйста.

[Hacker19_90]

function Pos(const SubStr, Str: ShortString): Integer;

не пробовали?

[Shouldercannon]

Пробовал. Нужно несколько раз пробежаться по s через while. Один интересный момент - нужно добавить в Memo часть текста до слово, потом само модифицированное слово [слово], потом то, что идёт после слово и так до тех пор, пока не закончится поиск.

if Pos('слово', s) <> 0 then ShowMessage('Найдено');

[Hacker19_90]

Тогда вам лучше

function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;

[Shouldercannon]

Нельзя это делать. Я делаю вывод в RichView.

RichView.AddNL(часть текста до слово, 0, 0);
RichView.AddNL(слово, 1, -1);
RichView.AddNL(текст идущий после слово, 0, -1);
RichView.AddNL(слово, 1, -1);
RichView.AddNL(текст идущий после слово, 0, -1);
RichView.Format;

Задача - выделить из всего добавленного текст в RichView слово слово
Была идея:
Через while искать позицию, далее добавляем всё до слово, затем удаляем всё перед слово и добавялем само слово и так далее. Лписание фиговое, влт пример
Step 1. Некое предложение, в котором встречается
Step 2. слово
Step 3. . Нужно найти это
Step 4. слово
Step 5. и совершить над ним действие.
Как-то так.

[Аватар]

Вот примерчик с RichEdit

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2: String;
    i,k: Integer;
    xPos: array of Integer;
begin
  s1:='Раз два. Два, три, раз. Два-два';
  s2:='два';
  RichEdit1.Clear;
  k:=0;
  while s1<>'' do begin
    i:=Pos(AnsiUpperCase(s2),AnsiUpperCase(s1));
    if i=0 then begin
      RichEdit1.Text:=RichEdit1.Text+s1;
      Break;
    end;
    RichEdit1.Text:=RichEdit1.Text+Copy(s1,1,i-1)+'['+Copy(s1,i,Length(s2))+']';
    Inc(k);
    SetLength(xPos,k);
    xPos[k-1]:=Length(RichEdit1.Text)-Length(s2)-2;
    s1:=Copy(s1,i+Length(s2),Length(s1)-i-Length(s2)+1);
  end;
  for i:=0 to k-1 do begin
    RichEdit1.SelStart:=xPos[i];
    RichEdit1.SelLength:=Length(s2)+2;
    RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];
  end;
end;

[Shouldercannon]

  s := 'Некое предложение, в котором встречается слово. Нужно найти это слово и совершить над ним действие.';
  Memo1.Clear;

  while Pos(Edit1.Text, s) <> 0 do
  begin
    // Избегаем пустой строки в начале
    if (Copy(s, 1, Pos(Edit1.Text, s) - 1)) <> '' then Memo1.Lines.Add(Copy(s, 1, Pos(Edit1.Text, s) - 1)); // До СЛОВО
    Delete(s, 1, Pos(Edit1.Text, s) - 1);
    Memo1.Lines.Add(Copy(s, 1, Length(Edit1.Text))); // Само СЛОВО
    Delete(s, 1, Length(Edit1.Text));
    // После СЛОВО
    if not (Pos(Edit1.Text, s) <> 0) then
    begin
      Memo1.Lines.Add(s);
      Break;
    end;
  end;