Вывод из VarArray в Excel

[tgrisha]

Создаю массив с помощью VarArrayCreate и вывожу его в Excel. Столкнулся с такой проблемой, в версиях Lazarus до 2.0.12 включительно это работает, а в более новых выдает ошибку EOleSysError: Член группы не найден. С чем это может быть связано?

Код: Выделить всё

    uses ..., ComObj, Variants;
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    var
      XL, XLb, XLs, XLa: Variant;
      i: integer;
    begin
      XL:=CreateOleObject('Excel.Application');
      XLb:=XL.Workbooks.Open(widestring(UTF8ToAnsi('D:\test.xlsx')));
      XLs:=XLb.Worksheets[1];
      XLa:=VarArrayCreate([1,3,1,3],varVariant);
      for i:=1 to 3 do begin
        XLa[i, 1] := '111';
        XLa[i, 2] := '222';
        XLa[i, 3] := '333';
      end;
      XLs.Range['A1:C3'].Value := XLa;  // в этом месте ошибка
    end;

[Sharfik]

Типы данных для нормальной работы OleVariant, WideString. Попробуй, может оживет.

Нужно конкретно такой способ вывода? Это просто не очень надежный вариант и совсем не перспективный.

[sts]

я точно знаю что надо цикл обернуть в

Код: Выделить всё

VarArrayLock(XLa);
try
      for i:=1 to 3 do begin
        XLa[i, 1] := '111';
        XLa[i, 2] := '222';
        XLa[i, 3] := '333';
      end;
finally
  VarArrayUnLock(XLa);
end;

XLs.Range['A1:C3'].Value := XLa;


Добавлено спустя 3 минуты 5 секунд:
типа там асинхронно работает создание массива

Добавлено спустя 21 секунду:
в смысле заполнение