![]() |
#10 |
Участник
|
По поводу заполнения, вот как реализовал..
(может кому-то нужно будет) n:=10; //(количество ячеек на шаблоне) l:=STRLEN(CompanyInfo."Phone No."); // получаем длину номера (количество символов) rr:=17; //столбец по координатам х SymbNum:=l; //по какой символ заполнять FOR i:=1 TO n DO BEGIN IF i>n-l THEN BEGIN ExcelMgt.FillCell(FORMAT(ColInInteger(rr))+'25',FORMAT(CompanyInfo."Phone No."[SymbNum])); rr-=1; //счетчик для заполнения SymbNum-=1; //доп счетчик для заполнения с конца END; END; |
|