Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



WrapText

создает из однолинейной строки – много линейную

Описание:

    Delphi функция WrapText эффективно разделяет строку (например, string), на многочисленные линии в возвращаемой строке.

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

Версия 1

     - самая простая версия, прерывание (#13#10 - Перевод строки + подача строки) ставится после установленного количества знаков, чтобы использовать этот вариант необходимо передать функции два параметра: первый - это after, а второй минимальное количество знаков в строке. Если максимальный размер строки не указан, то по умолчанию он устанавливается в 45.

Версия 2

     прерывание ставится до установленного количества знаков, чтобы использовать этот вариант необходимо передать функции два параметра: первый - это before, а второй максимальное количество знаков в строке.

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

Пример кода:

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.