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

AvasKvas

Well-Known Member
03.06.2009
78
0
#1
суть:

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


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

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

AvasKvas

Well-Known Member
03.06.2009
78
0
#2
исправил на:
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);

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