Функция 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
символів
Схожі функції та команди
Concat —З'єднує кілька рядків в один
Copy — Створює копію частини рядка або масиву
Delete — Видаляє частину символів з рядка
Insert —Вставляє рядок в інший рядок
Move — Копіює байти даних із джерела в місце призначення
StringOfChar — Створює рядок з одного символу, повтореного багато разів
StringReplace — Замінює один або кілька підрядків, знайдених у заданому рядку
