[artemavd]

Доброе утро! Мне надо, чтобы по нажатию на кнопку у меня в Memo, в определенную позицию, например, после слова "Слово", чтобы функция искала это слово, вставляла слово из Label. Пусть, например, в Label есть слово "Слово1", то в Memo должно появиться измененная строчка вида "...Слово Слово1...". Как можно сделать такое? Поиск по этому форуму и по другим форумам, а также в инете, не дал результатов. А очень надо мне эту штучку сделать.

[Nyctos Kasignete]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   MemoText: string;
begin
   MemoText := StrPas(Memo1.Lines.GetText);
   MemoText := StringReplace(MemoText, 'слово', 'слово ' + Label1.Caption,
                             [rfIgnoreCase]);
   { Либо, если желаете,
   MemoText := StringReplace(MemoText, 'слово', 'слово ' + Label1.Caption,
                             [rfIgnoreCase, rfReplaceAll]); }
   Memo1.Lines.Clear;
   Memo1.Lines.SetText(@MemoText[1]);
end;