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

Тема в разделе "Delphi - СОМ", создана пользователем AvasKvas, 3 сен 2009.

  1. AvasKvas

    AvasKvas Well-Known Member

    Регистрация:
    3 июн 2009
    Сообщения:
    78
    Симпатии:
    0
    суть:

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


    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

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

    AvasKvas Well-Known Member

    Регистрация:
    3 июн 2009
    Сообщения:
    78
    Симпатии:
    0
    исправил на:
    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);

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

Поделиться этой страницей