Перенос строки в RTF

[Marisha_P]

Подскажите, как в строчку собрать данные, чтоб они выводились в печатную форму каждый на новую строку?

Код: Выделить всё

if(VulkR>'','Вулк.р./час'+ char(13),'')
if(VulkF>'','Вулк.ф./час', '')
if(PMerR>'','П/мер.р./час','')
if(PMerF>'','П/мер.ф./час','') 

char(13) никак не обрабатывается:(

[Irina_]

Здравствуйте. Если я правильно поняла то, что Вам надо, то попробуйте в RTF добавить таблицу (в приведенном случае на 4 строки), без границ. И вывод соответствующих данных сделайте в разных строках таблицы.

[Marisha_P]

Если бы можно было разбить на строки, я бы разбила. А надо вставить эти строчки, если заполнены атрибуты, в центр таблицы, где куча объедененных ячеек рядом, причем объединены в разнобой совсем.... я хотела в одну переменную собрать данные через перевод строки, но почему-то не воспринимается этот символ:(

[Marisha_P]

у меня получается, что не все значения могут быть заполнены, и тогда будут пустые строки, а мне они не нужны:(

[edward_K]

Код: Выделить всё

.{ While условие
.begin // если нужно

 end.
.{?Internal;условие;
.} //.{?Internal;условие;
.}//.{ While условие

[Marisha_P]

https://pp.vk.me/c625423/v625423072/356 ... LDJh8M.jpg
где выделены ячейки вот туда надо добавлять строчки, если есть атрибуты.. разбить таблицу у меня не получается:(
если разбиваю таблицу, то уже нет возможности объединить ячейки слева

[edward_K]

ну еще можно пропбовать вставлять chr(10) или chr(10)+chr(13)
В Excel chr(10) прокатывает. Ну ест. высота строки не должна быть фиксирована.

[Marisha_P]

понятно:( выхода нет:)) спасибо всем за участие!

[edward_K]

Выход есть всегда. Вы chr(10) то попробовали между подстроками добавить? На крайняк можно RunForm запустить в программном блоке в этой ячейке

Код: Выделить всё

.AutoForm Check_SocErr(wtabn :longint ; ErrrSTR :string )
.table blank
.fields
  wtabn
  '/'+ErrrSTR
.endfields
.begin
//  logstrtofile('!chksoc_chisl.log','0 '+ErrrSTR)

 end.
Таб. @@@@@@@@@@@@@@ ^
.endform  

Параметров у нен может быть вагон.
А там где нужно, вставить в программном блоке
RunForm(Check_SocErr,DopLsch.lschet.tabn,wstr) ;
Будете удивлены - в Word это тоже пашет.

[Marisha_P]

Снова появился этот же самый вопрос:) Теперь уже вопрос не в таблице, а просто у меня в строке накапливаются данные по распределению сырья. Соответственно если позиций несколько, то каждую новую надо бы начинать с новой строки, chr(10)+chr(13) не помогает:( Есть какие-нибудь способы? нашла, что для rtf есть функция \par. Но как применить не понимаю:(