Поиск и замена текста в TMemo

Delphi , Компоненты и Классы , TMemo и TRichEdit

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  Buff, P, FT: PChar;
  BuffLen: Word;
begin
  with Sender as TFindDialog do
  begin
    GetMem(FT, Length(FindText) + 1);
    StrPCopy(FT, FindText);
    BuffLen := Memo1.GetTextLen + 1;
    GetMem(Buff, BuffLen);
    Memo1.GetTextBuf(Buff, BuffLen);
    P := Buff + Memo1.SelStart + Memo1.SelLength;
    P := StrPos(P, FT);
    if P = nil then
      MessageBeep(0)
    else
    begin
      Memo1.SelStart := P - Buff;
      Memo1.SelLength := Length(FindText);
    end;
    FreeMem(FT, Length(FindText) + 1);
    FreeMem(Buff, BuffLen);
  end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  with Sender as TReplaceDialog do
    while True do
    begin
      if Memo1.SelText <> FindText then
        FindDialog1Find(Sender);
      if Memo1.SelLength = 0 then
        Break;
      Memo1.SelText := ReplaceText;
      if not (frReplaceAll in Options) then
        Break;
    end;
end;

Перевод контента на русский язык:

Это пример кода программирования Delphi, демонстрирующий поиск и замену текста в компоненте TMemo, которая является текстовым полем управления.

Код разделен на две процедуры: FindDialog1Find и ReplaceDialog1Replace.

Процедура FindDialog1Find Эта процедура ищет указанный текст (FindText) в контроле Memo1. Вот что она делает: 1. Выделяет память для буфера Buff, чтобы хранить содержимое контрола Memo1. 2. Копирует содержимое Memo1 в буфер с помощью GetTextBuf. 3. Рассчитывает начальное положение (P) поиска в буфере на основе начала и длины выделенной области в Memo1. 4. Ищет указанный текст с помощью функции StrPos, которая возвращает указатель на первое вхождение текста, если он найден, или nil в противном случае. 5. Если текст не найден, отображает звуковой сигнал с помощью MessageBeep. В противном случае, устанавливает начало и длину выделенной области в Memo1, соответствующие найденному тексту.

Процедура ReplaceDialog1Replace Эта процедура заменяет выбранный текст (SelText) на текст замены (ReplaceText). Вот что она делает: 1. Вызывает процедуру FindDialog1Find повторно, пока выделенная область не соответствует указанному тексту. 2. Если длина выделенной области равна 0, выходит из цикла. 3. Заменяет выбранный текст на текст замены.

Альтернативное решение Вместо использования ручного управления памятью и буфером аллокации можно использовать встроенный свойство TMemo.Text для поиска и замены текста. Вот альтернативная реализация:

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
  if Memo1.Text.Contains(FindText) then
    Memo1.SelectionStart := Pos(FindText, Memo1.Text) - 1;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  while True do
  begin
    if not (Memo1.Text.Contains(FindText)) then
      Break;
    Memo1.Text := ReplaceText + Copy(Memo1.Text, Memo1.SelectionStart + Length(FindText), Memo1.Length - Memo1.SelectionStart - Length(FindText));
  end;
end;

В этом реализации используется метод Contains для проверки наличия указанного текста в тексте контрола Memo1. Если текст найден, то устанавливается начало выделенной области в позицию первого вхождения с помощью функции Pos. В процедуре замены текста использует функцию Copy, чтобы извлечь часть текста до и после выделенной области, и склеивает их с текстом замены. Обратите внимание, что это альтернативное решение не требует ручного управления памятью или буфером аллокации, что делает его более эффективным и легким для поддержки.

Данная статья описывает программный код на Delphi, который позволяет найти и заменить текст в компоненте TMemo с помощью диалоговых окон поиска и замены.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::