Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Ноя

Функция замены слов в тексте

Posted by micher under Delphi

Как заменить все слова в RichEdit?

artemavd



function Search_And_Replace(sRichEdit1: TRichEdit; SearchText, ReplaceText: string): Boolean;

var

  startpos, Position, endpos: integer;

begin

  startpos := 0;

  with Form1.sRichEdit1 do

  begin

    endpos := Length(Form1.sRichEdit1.Text);

    Lines.BeginUpdate;

    while FindText(SearchText, startpos, endpos, [stMatchCase])  - 1 do

    begin

      endpos   := Length(Form1.sRichEdit1.Text) - startpos;

      Position := FindText(SearchText, startpos, endpos, [stMatchCase]);

      Inc(startpos, Length(SearchText));

      SetFocus;

      SelStart  := Position;

      SelLength := Length(SearchText);

      Form1.sRichEdit1.clearselection;

      Form1.sRichEdit1.SelText;

      SelText := ReplaceText;

    end;

    Lines.EndUpdate;

  end;

end;