• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

передача массива в функцию объекта Olevariant

  • Автор темы AvasKvas
  • Дата начала
A

AvasKvas

суть:

Помогите может кто знает решение...


body,s1:OleVariant;
style:array of OleVariant;


setlength(style,6);
for i:= 0 to length(style)-1 do
begin
style:=s1.CreateRichTextParagraphStyle; //создаем таблицу стилей
style.LeftMargin:=0;
style.FirstLineLeftMargin:=0;
style.RightMargin:= RULER_ONE_INCH * 1.5;
end;


body.AppendTable(1,6,null,700,style); //тут ругается --- type not allowed in OLE Automation call

что можно придумать?
 
A

AvasKvas

исправил на:
setlength(style,6);
for i:= 0 to length(style)-1 do
begin
style:=s1.CreateRichTextParagraphStyle; //создаем таблицу стилей
style.LeftMargin:=0;
style.FirstLineLeftMargin:=0;
style.RightMargin:= RULER_ONE_INCH * 1.5;
end;
arStyle:= VarArrayOf([style[0],style[1],style[2],style[3],style[4],style[5]]);
body.appendTable(1,6,null,0,arStyle);

передает но видимо не в таком формате как надо... выдает ошибку при исполнении что не так?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!