Очистка строки от начальных и конечных пробелов в Delphi

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

Вопрос, поднятый Henry Olive, касается обработки строк в языке программирования Delphi, который использует Object Pascal. Задача состоит в том, чтобы проверить первую и последнюю символы строки на предмет наличия кавычек и, если они есть, удалить их. JonRobertson предложил простой пример кода, который решает эту задачу. Remy Lebeau указал на существование функций AnsiDequotedStr() и AnsiExtractQuotedStr() из модуля SysUtils, которые также могут быть использованы для этой цели.

Решение с использованием встроенных функций Delphi

Использование функций AnsiDequotedStr() и AnsiExtractQuotedStr() является наиболее предпочтительным, так как они уже оптимизированы и предназначены для работы с кавычками в строках. Пример использования этих функций:

uses
  SysUtils;

var
  str: string;
  result: string;
begin
  str := '''abc'''; // Исходная строка с кавычками
  result := AnsiExtractQuotedStr(str[1], str[Length(str)]); // Извлекаем содержимое строки без кавычек
  // Если нужно, можно также удалить исходную строку, оставив только кавычки:
  str := AnsiDequotedStr(str);
  // Теперь str содержит только кавычки, а result - содержимое без кавычек
end;

Альтернативное решение с использованием стандартных функций Delphi

Если по каким-то причинам вы не хотите использовать функции из SysUtils, вы можете написать свой код для удаления кавычек. Вот пример:

var
  str: string;
begin
  str := '''abc'''; // Исходная строка с кавычками
  if Length(str) > 1 then
  begin
    if str[1] = ''' then
      str := Copy(str, 2, Length(str) - 1); // Удаляем первую кавычку
    if str[Length(str)] = ''' then
      str := Copy(str, 1, Length(str) - 1); // Удаляем последнюю кавычку
  end;
end;

Оба приведенных решения решают задачу, поставленную Henry Olive, и могут быть использованы в зависимости от ваших предпочтений и требований проекта.

Создано по материалам из источника по ссылке.

Вопрос связан с обработкой строк в языке программирования Delphi, где необходимо проверить и удалить кавычки в начале и конце строки.

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

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

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