Egor PR
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
Цитата: Как прописать в "Мемо", чтобы в таблице выводилось:
Система - алюминий - 10я серия - Белый |
не совсем красивый код, но работает 
sys := [COPY([Изделие: система],1,LENGTH([Изделие: система]))];
while POS(CRLF,sys) <> 0 do
begin
sys := [COPY(sys, 1, (POS(CRLF,sys)-1))] + ' - ' + [COPY(sys, (POS(CRLF,sys)+2),9999)];
end;
memo := sys;
Цитата: Элементы:
4М4 - заполнение
ald1014 - рама 59мм
"Рама 59мм", ... - это название из справочника "Комплектующие". |
Элементы
[Изделие: элементы] |
Всего записей: 174 | Зарегистр. 07-01-2006 | Отправлено: 12:58 20-09-2007 | Исправлено: Egor PR, 13:02 20-09-2007 |
|
