Заполнение нескольких ячеек основной надписи

[podshibyakinea]

Не могу понять как заполнить несколько ячеек штампа.
Т.е как разом заполнить ячейки 111/112/114/115 ?

Код Выделить Развернуть

iStamp.ksColumnNumber(110);
iTextItemParam.s:='Иванов';
ну или 

Код Выделить Развернуть

j:= 'Иванов';
iStamp.ksColumnNumber(110);
iTextItemParam.s:=j;

[#programmer]

Из SDK:

Для API5
long ksSetStampColumnText (long numb, LPDISPATCH textArr);

Входные параметры:
numb
- номер ячейки основной надписи,
textArr
- указатель на интерфейс динамического массива ksDynamicArray строк текста типа TEXT_LINE_ARR.

Возвращаемое значение:


1
- в случае успешного завершения,

0
- в случае неудачи.


Примечание:

Метод используется в режиме редактирования штампа.

Для API7:
Через IStamp получить IText (текст по номеру ячейки) и использовать свойство IText.Str.
Потом вызвать метод Update() у IStamp.

[podshibyakinea]

Спасибо!

Моя ошибка вот в чем:
Надо было после каждой скопированной строки добавлять  iStamp.ksTextLine(iTextItemParam);

Код Выделить Развернуть

          iStamp.ksColumnNumber(111);
          iTextItemParam.s:='Иванов';
          iStamp.ksTextLine(iTextItemParam);

          iStamp.ksColumnNumber(112);
          iTextItemParam.s:='Иванов';
          iStamp.ksTextLine(iTextItemParam);

[#programmer]

Ну, можно и так