: Функции Delphi; 09 марта 2022; Просмотров: 485

Функция WrapText – добавляет перенос строки в строку, чтобы имитировать перенос слов

Функция WrapText добавляет перенос строки в строку, чтобы имитировать перенос слов.

SysUtils unit

function WrapText ( const SourceString {, MaxColumnSize : Integer = 45} ) : string;
function WrapText ( const SourceString, BreakString : string; BreakSet : TSysCharSet; MaxColumnSize : Integer ) : string;

Функция WrapText эффективно разбивает строку текста SourceString на множественные строки в возвращаемой строке.

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

Версия 1

Является самой простой версией, позволяя вставлять заданную по умолчанию подстроку конца строки после каждого набора слов равного MaxColumnSize символам. Если максимальный размер столбца опущен, то принимается значение по умолчанию - 45.

Версия 2

Позволяет вставить символ конца строки (BreakString) после символа-прерывателя входящего в BreakSet, прежде чем достигнут MaxColumnSize.

Если ни один не найден, то BreakString все равно вставляется. В обоих случаях, слова сохраняются целыми.

Функция WrapText: Пример кода

var
  before, after : string;

begin
  // Установка длинной строки
  before := 'Это весьма длинная строка, длинной не менее 50 символов';

  // Её разбиение на множество строк, каждая длинной по 10 символов
  after := WrapText(before, 10);

  // Показ строк before и after
  ShowMessage(before);
  ShowMessage('');
  ShowMessage(after);
end;

Результат

Это весьма длинная строка, длинной не менее 50 символов

Это весьма
длинная
строка,
длинной
не менее
50
символов

Функция WrapText – добавляет перенос строки в строку, чтобы имитировать перенос слов

Функция WrapText: Пример кода

Результат

Похожие функции и команды

Помощь

Продукция и услуги

Main Menu