Как реализовать поиск по тексту

Delphi , Синтаксис , Текст и Строки

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  find: string;
  text: string;
  st, len: integer;
  res: integer;
begin
  if Memo1.SelStart >= Length(Memo1.Text) then
    Memo1.SelStart := 0;
  st := Memo1.SelStart + 1;
  if (Memo1.SelLength <= 0) or (not CheckBox1.Checked) then
  begin
    inc(st, Memo1.SelLength);
    len := Length(Memo1.Text) - st;
  end
  else
    len := Memo1.SelLength;
  text := copy(Memo1.Text, st, len);
  find := Edit1.Text;
  res := pos(find, text);
  if res = 0 then
  begin
    ShowMessage('Search string "' + find + '" not found');
    Exit;
  end;
  Memo1.SelStart := res + st - 2;
  Memo1.SelLength := length(find);
end;

Программный код, который вы предоставили, это приложение на языке Delphi, позволяющее пользователю поискать конкретную строку в загруженном текстовом файле. Функциональность поиска реализована в обработчике события Button2Click.

Вот шаг за шагом, как работает код:

1. Обработчик события Button1Click загружает текстовый файл в контролл Memo1 с помощью диалога OpenDialog.
2. Обработчик события Button2Click поискать строку в загруженном тексте. Он делает это следующим образом:
   • Получает текущую позицию начала выделения (SelStart) и длину (SelLength) из контрола Memo1.
   • Проверяет, является ли выделение валидным (т.е., не находится на конце текста). Если оно невалидно, устанавливает позицию начала выделения в 0.
   • Вычисляет подстроку в тексте, соответствующую текущему выделению.
   • Ищет строку ввода пользователя (Edit1.Text) в этом подстроке с помощью функции Pos.
   • Если найдена строка поиска, устанавливает позицию начала выделения в начало совпадения и длину выделения в длину совпадения. Это эффективно выбирает текст, который соответствует совпадению.

Некоторые предложения для улучшения кода:

• Вы можете использовать более эффективный алгоритм поиска,such as Boyer-Moore или Knuth-Morris-Pratt, если ожидаете больших текстов или частых поисков.
• Рассмотрите возможность добавления параметра направления поиска (например, вперед, назад) для возможности поиска в обоих направлениях.
• Можете добавить функцию подчеркивания совпадения вместо только выделения текста.
• Если планируете поддерживать несколько языков, учитывайте, что функция Pos в Delphi чувствительна к регистру и может не работать правильно с не-ASCII-символами.

В качестве альтернативного решения вы можете использовать регулярные выражения (Regex) для поиска шаблонов в тексте. Delphi предоставляет встроенный компонент TRegEx, который позволяет скомпилировать regex-паттерны и найти совпадения. Этоapproach может быть более гибким и мощным, чем использование простых методов строкового поиска, таких как Pos.

В статье описывается реализация поиска по тексту в приложении Delphi с использованием процедуры, которая загружает текст из файла и затем ищет указанную строку в этом тексте.

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

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

:: Главная :: Текст и Строки ::