Как выделить и заменить определенное слово в memo?

[AlexGordon]

Например, при нажатии на кнопку должно искаться слово pipes в memo, и заменяться на trubi.
Причем, если текст мемо следующий:

Код: Выделить всё

pipes
asdasd
gdgsff
asdda pipes asdasd
asdasd

То должно получиться следущее:

Код: Выделить всё

trubi
asdasd
gdgsff
asdda trubi asdasd
asdasd

т.е. искаться и заменяться должно по всему memo. Как это сделать?

[Padre_Mortius]

Предполагаю, что стоит рассматривать содержимое Memo как TStringList (чем оно по сути и является), а дальше уже заниматься разбором каждой строки в отдельности.
И в модуле StrUtils есть много интересных функций и процедур по замене фрагментов текста (например, AnsiReplaceText)

[AlexGordon]

А поподробнее?

[Padre_Mortius]

Код: Выделить всё

var
  i: integer;
  S:AnsiString;
begin
for i:=0 to Memo1.Lines.Count -1 do
begin
  S := '';
  S := AnsiReplaceText(S, 'pipes', Memo1.Lines[i]);
  Memo1.Lines[i] := S;
end;


что-то типа такого. писалось сразу в браузере, т.е. могут быть ошибки

[Nik]

Можно и всё содержимое Memo рассматривать как одну строку - Memo.Lines.Text. Замена - аналогично предложенному Padre_Mortius.

[Kubanych]

Можете посмотреть примеры к моей книге http://freepascal.ru/download/zips/windows-samples.7z. В папке \Примеры\К главе 6\TMemo. Там рассмотрены способы организации поиска в TMemo. Найденный фрагмент текста выделяется.
Способ замены - как предложил Padre_Mortius.

[AlexGordon]

Padre_Mortius, а что твой код заменяет словом Pipes? я не понял просто

[Iv_]

Padre_Mortius, а что твой код заменяет словом Pipes? я не понял просто

Я так понимаю, что - пробел.

[Odyssey]

Нет. В коде ошибка (а об ошибках Padre_Mortius честно предупредил). Чтобы понять, нужно смотреть документацию по AnsiReplaceText. Там написано, в вольном переводе, следующее:

Код: Выделить всё

function AnsiReplaceText(
  const AText: String;
  const AFromText: String;
  const AToText: String
):String;

Параметры:

AText -- Строка, в которой производится поиск и замена.
AFromText -- Строка, которую нужно найти
AToText -- Строка, на которую нужно заменить

Т.е. правильно будет:

Код: Выделить всё

var
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    Memo1.Lines[i] := AnsiReplaceText(Memo1.Lines[i], 'pipes', 'trubi');


[debi12345]

RegExpr использовать не пробовали ?
(ессно, не RTL-овский, а более навороченный - модуль приаттачен )

function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString;
AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; //###0.947