Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текст фиксированной ширины с переносами

pegas7 © (2002-05-08 13:23:00)
Hi,All Есть ширина строки в символах .Как всего можно можно преобразовать произволный текст в Tstring c каждым стрингом заданной ширины с учетом переносов при этом переносы $13 в тексте должны учитыватся.

Johnmen (2002-05-08 15:22:00) [1]
Если лучше, в сысле проще, то нет...

pegas7 (2002-05-08 15:04:00) [2]
>Alx2
Нет ну не надо так категорично-на самом деле я тупой ;-(
Конечно не $13 а #13-перенос строки
(Позор мне, заброшу Delphi удалюсь в монастырь:-))
А Я то думаю что народ не понимает
Построчно получаем для для длинны строки в 20 символов

Фланец
Круг 12-В
ГОСТ2590ВВ
20ГП-ТО
ГОСТ1050-88

(Каждая строчка-обьект TEXT в AutoCADe)
То есть если не умещается в длинну то пословно переносится в соответствии с длинной, а если есть символ переноса строки-то принудительно. (В общем если ширину TDbmemo подогнать пол 20 символов то автоматом так и отобразится, только может существует способ получше )

jonik pegas (2002-05-08 15:03:00) [3]
>Alx2
Нет ну не надо так категорично-на самом деле я тупой ;-(
Конечно не $13 а #13-перенос строки
(Позор мне, заброшу Delphi удалюсь в монастырь:-))
А Я то думаю что народ не понимает
Построчно получаем для для длинны строки в 20 символов

Фланец
Круг 12-В
ГОСТ2590ВВ
20ГП-ТО
ГОСТ1050-88

(Каждая строчка-обьект TEXT в AutoCADe)
То есть если не умещается в длинну то пословно переносится в соответствии с длинной, а если есть символ переноса строки-то принудительно. (В общем если ширину TDbmemo подогнать пол 20 символов то автоматом так и отобразится, только может существует способ получше )

Alx2 (2002-05-08 14:42:00) [4]
Так. Тупой я :(
А можно пример?
Конкретно что на входе и что на выходе?
То есть имеем: "Фланец"+$13+"Круг 12-В ГОСТ2590ВВ"+"$13+"20ГП-ТОГОСТ1050-88" (токмо причем здесь "$" ?).
А что получаем построчно?

pegas7 (2002-05-08 14:07:00) [5]
Пардон обьясняю
Есть поле в БД примерно такого содержания "Фланец"+$13+"Круг 12-В ГОСТ2590ВВ"+"$13+"20ГП-ТОГОСТ1050-88" и т.д. Есть заданная ширина (в символах) поля для отчета, например 10 символов(таблица в AutoCAD куда средствами автоматизации перебрасываю). Требуется вручную разбивать текст на 10 символьные интервалы (перенос по cловам). при этом перенос строки должен учитыватся (Ну примерно как в ТDBМЕМО делается). Может существует простой вариант решения?

Alx2 (2002-05-08 13:32:00) [6]
В смысле, пробелы увеличить дополнительными пробелами?

Johnmen (2002-05-08 13:31:00) [7]
Hi, pegas7 !
Что-то мутноват вопрос....

Andrey007 (2002-05-08 13:30:00) [8]
Перечитал вопрос несколько раз и так и не понял чего надо. ИЗ какого типа текст надо преобразовать в TStrings? Что значит "c каждым стрингом заданной ширины"?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »