WrapText

Добавляет символы переноса строки в заданную строку для имитации - многострочного текста

Описание:

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

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

     Вариант 1

     В простейшем случае, стандартные символы обрыва строки (#13#10 - Возврат каретки + перенос строки) вставляются после каждой последовательности слов, встреченных в исходной строке и умещающихся в MaxColumnSize символов.

     Если максимальный размер колонки опущен, он принимается равным 45.

     Вариант 2

     Вставляет символы обрыва строки BreakString после встреченных символов из набора BreakSet, до тех пор, пока не будет достигнут MaxColumnSize.

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

     В обоих случаях слова сохраняются целыми и никогда не переносятся на следующие строки.

Пример кода:

var
   before, after : string;

begin
   // Set up a long string
   before := 'This is quite a long string, at least 50 chars long';

   // Split it into multiple lines, each 10 characters long
   after := WrapText(before, 10);

   // Show the before and after strings
   ShowMessage(before);
   ShowMessage('');
   ShowMessage(after);
end;

Результат выполнения:

This is quite a long string, at least 50 chars long

This is
quite a
long
string,
at least
50 chars
long

Пример кода:

var
   before, after : string;

begin
   // Set up a long string
   before := 'Ten = 10. Eleven = 11. One hundred = 100.';

   // Split it into multiple lines, terminated by a dot
   after := WrapText(before, #13#10, ['.'], 1);

   // Show the before and after strings
   ShowMessage(before);
   ShowMessage('');
   ShowMessage(after);
end;

Результат выполнения:

Ten = 10. Eleven = 11. One hundred = 100.

Ten = 10.
Eleven = 11.
One hundred = 100.

Клуб программистов

Delphi programming

WrapText

Описание:

Пример кода:

Результат выполнения:

Пример кода:

Результат выполнения: