Функции и процедуры Delphi. Справочник.

II. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ СО СТРОКАМИ

1. Основные функции и процедуры для работы со строками

Функция WrapText (
const S, BreakStr: string;
nBreakChars: TSysCharSet;
MaxCol: Integer): string;

Модуль: SysUtils

type TSysCharSet = set of Char;

Описание
Функция разбивает строку S на подстроки, вставляя в строку символы-разделители, указанные в параметре BreakStr.
Символы-разделители вставляются в позиции, следующие за символами указанными в наборе nBreakChars.
Параметр MaxCol определяет максимальную длину полученных строк (на практике длина строк в некоторых случаях может превышать MaxCol).
Функция не вставляет разделители в строкицитаты (строки заключенные в одиночные кавычки). В параметре BreakStr, могут указываться как любые допустимые одиночные символы (буквы, цифры, управляющие символы; например, #13), так и целые строки.

Пример
var
   S, R: string;
begin

S:= '123456_123456_123456';
R:= WrapText( S, #13#10, ['1', '4'], 4);
MessageDlg( R, mtInformation, [mbOk], 0);

end;

[Вернуться к содержанию]