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

AvasKvas · 03.09.2009

суть:

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

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 · 03.09.2009

исправил на:
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);

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