Примеры использования функции AdjustLineBreaks в Delphi для обработки текста с разными типами переносов строк

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

Обработка переносов строк в Delphi: использование функции AdjustLineBreaks

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

Проблема переносов строк

Разные операционные системы используют различные символы для обозначения конца строки:

• Windows (DOS) использует CR+LF (#13#10)
• Unix/Linux использует только LF (#10)
• Mac OS (до версии 9) использовала только CR (#13)

Когда код, написанный в одной системе, копируется или открывается в другой, могут возникнуть проблемы с отображением текста. Классический пример - открытие файла с переносами LF в стандартном Блокноте Windows, который отображает весь текст одной строкой.

Функция AdjustLineBreaks

Delphi предоставляет встроенную функцию AdjustLineBreaks (модуль System.SysUtils), которая решает эту проблему:

function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = tlbsCRLF): string;

Параметры: - S - исходная строка - Style - стиль переноса строк (по умолчанию tlbsCRLF)

Тип TTextLineBreakStyle может принимать значения: - tlbsCRLF - Windows-стиль (#13#10) - tlbsLF - Unix-стиль (#10)

Примеры использования

1. Базовый пример преобразования

var
  OriginalText, ConvertedText: string;
begin
  OriginalText := 'Line1'#10'Line2'#13'Line3'#13#10'Line4';
  ConvertedText := AdjustLineBreaks(OriginalText);
  Memo1.Lines.Text := ConvertedText;
end;

2. Обработка текста из буфера обмена

procedure TForm1.Button1Click(Sender: TObject);
var
  ClipText: string;
begin
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    ClipText := AdjustLineBreaks(Clipboard.AsText);
    Memo1.Lines.Text := ClipText;
  end;
end;

3. Сохранение в Unix-формате

procedure SaveAsUnixFormat(FileName: string; Strings: TStrings);
var
  TempStr: string;
begin
  TempStr := AdjustLineBreaks(Strings.Text, tlbsLF);
  with TStringList.Create do
  try
    Text := TempStr;
    SaveToFile(FileName, TEncoding.UTF8);
  finally
    Free;
  end;
end;

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

Использование TStrings.Text

Как отметил Remy Lebeau, свойство Text классов TStrings и его потомков (TStringList, TMemo.Lines и др.) автоматически обрабатывает различные форматы переносов строк:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Text := Clipboard.AsText; // автоматическая обработка переносов
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;

Настройки IDE Delphi

В современных версиях Delphi (начиная с 10.4 Sydney) есть встроенная опция для автоматического преобразования переносов строк:

1. Откройте Tools > Options
2. Перейдите в Editor > Line Endings
3. Установите "Convert all files to CRLF"

Это гарантирует, что все файлы в проекте будут использовать Windows-формат переносов строк.

Практический пример: обработка исходного кода

Допустим, вы столкнулись с проблемой, описанной в исходном сообщении - код из проекта CEF4Delphi использует только LF (#10), а вам нужно работать с ним в стандартном Блокноте Windows.

Вот как можно создать утилиту для преобразования:

unit LineEndingConverter;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Clipbrd;

type
  TForm1 = class(TForm)
    MemoSource: TMemo;
    MemoResult: TMemo;
    Panel1: TPanel;
    btnLoadFromClipboard: TButton;
    btnConvert: TButton;
    btnCopyToClipboard: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    btnLoadFromFile: TButton;
    btnSaveToFile: TButton;
    rgLineEndings: TRadioGroup;
    procedure btnLoadFromClipboardClick(Sender: TObject);
    procedure btnConvertClick(Sender: TObject);
    procedure btnCopyToClipboardClick(Sender: TObject);
    procedure btnLoadFromFileClick(Sender: TObject);
    procedure btnSaveToFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnLoadFromClipboardClick(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_TEXT) then
    MemoSource.Lines.Text := Clipboard.AsText;
end;

procedure TForm1.btnConvertClick(Sender: TObject);
var
  LineBreakStyle: TTextLineBreakStyle;
begin
  case rgLineEndings.ItemIndex of
    0: LineBreakStyle := tlbsCRLF; // Windows
    1: LineBreakStyle := tlbsLF;   // Unix
    else LineBreakStyle := tlbsCRLF;
  end;

  MemoResult.Lines.Text := AdjustLineBreaks(MemoSource.Lines.Text, LineBreakStyle);
end;

procedure TForm1.btnCopyToClipboardClick(Sender: TObject);
begin
  Clipboard.AsText := MemoResult.Lines.Text;
end;

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

procedure TForm1.btnSaveToFileClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
    MemoResult.Lines.SaveToFile(SaveDialog1.FileName);
end;

end.

Заключение

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

Для большинства случаев в Windows-приложениях достаточно использовать стандартное поведение AdjustLineBreaks (без указания параметра Style) или напрямую работать со свойством Text классов TStrings. Для более сложных сценариев можно создать специализированные утилиты преобразования, как показано в примере выше.

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

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

Контекст: обработка переносов строк в Delphi с использованием функции AdjustLineBreaks для обеспечения совместимости форматов переноса строк между разными операционными системами.

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

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

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