|
По поводу заполнения, вот как реализовал..
(может кому-то нужно будет)
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;
|