Разбитие высоты и ширины на разные колонки в СО5/6
Постановка задачи:
Необходимо получить в разных столбцах высоту и шируну прямоугольного стеклопакета.
Решение:
В дизайнере отчета добавляется два поля Memo и пишется следующий код:
Memo1 (высота)
begin
memo:=COPY([Элемент:Размер], 1, POS(' ', [Элемент:Размер]));
end
Memo2 (ширина)
begin
memo:=COPY([Элемент:Размер], (POS(' ', [Элемент:Размер])+2),(POS('мм.', [Элемент:Размер])-(POS(' ', [Элемент:Размер])+2)));
end
Приведенный выше код не притендует на оригинальность и не является оптимальным, а лишь демонстрирует возможности встроенного дизайнера.
|