Как корректно разбить строку на подстроки с учетом пробелов в Delphi

Delphi , Компоненты и Классы , Списки

При работе с текстом в среде разработки Delphi иногда возникает необходимость разбить строку на подстроки по определенному разделителю. Однако, при использовании стандартного метода DelimitedText класса TStringList, может возникнуть проблема: строка разбивается не только на указанный разделитель, но и на пробелы. В данной статье мы рассмотрим, как решить эту проблему.

Описание проблемы

Представим, что у нас есть строка, разделенная каким-либо символом, например, запятой. Наша задача — создать объект TStringList, установить разделитель в виде запятой, и затем присвоить строку для парсинга свойству DelimitedText. Однако, в результате парсинга, строка разбивается не только на запятые, но и на пробельные символы, что приводит к нежелательному результату.

Решение проблемы

С версии Delphi 2005 существует свойство StrictDelimiter в классе TStringList. Если установить его в True, то парсинг будет производиться только по указанному разделителю, игнорируя пробелы.

uses
  System.SysUtils,
  System.Classes;

var
  List: TStringList;
  Delimiter: Char;
begin
  List := TStringList.Create;
  Delimiter := ',';
  List.StrictDelimiter := True; // Установка свойства StrictDelimiter в True
  List.Delimiter := Delimiter;
  List.DelimitedText := 'Первый элемент,Второй элемент,Третий элемент'; // Пример строки с разделителем запятой
  // Теперь строка будет разбита только по запятым, пробелы будут игнорироваться
  // Можно работать с элементами List
  List.SaveToFile('output.txt'); // Сохранение результата в файл для примера
  List.Free;
end;

Альтернативные решения

Если вы используете более старую версию Delphi, например, Delphi 7, где свойство StrictDelimiter недоступно, можно создать собственный подкласс TStringList с аналогичным поведением. Однако, стоит отметить, что метод SetDelimitedText является приватным и не виртуальным, поэтому его переопределение не представляется возможным.

В качестве альтернативы, можно использовать функцию ExtractStrings, которая позволит обработать строку с учетом пробелов как единых блоков.

Заключение

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

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

При работе с текстом в Delphi нужно корректно разбить строку на подстроки, учитывая пробельные символы, что можно сделать, используя свойство `StrictDelimiter` в классе `TStringList`.

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

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

:: Главная :: Списки ::