Манипулирование строками — обычная задача в программировании, и Delphi предоставляет различные методы для эффективной и действенной замены строк. В этой статье мы рассмотрим несколько подходов к замене подстрок внутри строк в Delphi, а также приведем примеры кода для иллюстрации каждого метода. Давайте погрузимся!

Метод 1: использование функции StringReplace
Функция StringReplace — это встроенная функция Delphi, упрощающая замену строк. Он позволяет заменить все вхождения подстроки внутри строки другой подстрокой. Вот пример использования:

var
  originalString, replacedString: string;
begin
  originalString := 'Hello, World!';
  replacedString := StringReplace(originalString, 'World', 'Universe', [rfReplaceAll]);
  ShowMessage(replacedString);
end;

Вывод: «Привет, Вселенная!»

Метод 2: использование класса TStringBuilder
Класс TStringBuilder предоставляет эффективные возможности манипулирования строками, включая замену строк. Это особенно полезно при работе с большими строками или выполнении нескольких замен. Вот пример:

var
  sb: TStringBuilder;
begin
  sb := TStringBuilder.Create;
  sb.Append('The quick brown fox jumps over the lazy dog.');
  sb.Replace('fox', 'cat');
  ShowMessage(sb.ToString);
  sb.Free;
end;

Выход: «Быстрый коричневый кот перепрыгивает через ленивую собаку».

Метод 3: использование регулярных выражений
Delphi поддерживает регулярные выражения через класс TRegEx из модуля RegularExpressions. Этот метод предлагает мощную замену строк на основе шаблонов. Вот пример:

uses
  RegularExpressions;
var
  regex: TRegEx;
  originalString, replacedString: string;
begin
  originalString := 'The price is $10.99.';
  regex := TRegEx.Create('\$\d+(\.\d+)?');
  replacedString := regex.Replace(originalString, '[$0]');
  ShowMessage(replacedString);
end;

Вывод: «Цена — [10,99 долларов США]».

Метод 4: использование функций Pos и ​​Copy
В некоторых случаях может потребоваться заменить подстроку в определенной позиции внутри строки. Функция Pos помогает определить положение подстроки, а функция Copy извлекает часть строки. Вот пример:

var
  originalString, replacedString: string;
  position: Integer;
begin
  originalString := 'Hello, World!';
  position := Pos('World', originalString);
  if position > 0 then
  begin
    replacedString := Copy(originalString, 1, position - 1) + 'Universe' +
      Copy(originalString, position + Length('World'), Length(originalString));
    ShowMessage(replacedString);
  end;
end;

Вывод: «Привет, Вселенная!»

В этой статье мы рассмотрели несколько методов замены строк в Delphi. Мы рассмотрели встроенную функцию StringReplace, класс TStringBuilder, регулярные выражения с использованием класса TRegEx и манипуляции со строками с помощью функций Pos и ​​Copy. Используя эти методы, вы можете уверенно обрабатывать различные сценарии замены строк в своих приложениях Delphi.

Не забывайте оптимизировать свой код с учетом конкретных требований вашего проекта, особенно при работе с большими строками или частыми заменами. Теперь, вооружившись этими методами, вы можете эффективно манипулировать строками в Delphi, как профессионал!