VarArray to Excel
lazarus / 34-Windows

----------------------------------------------------------------------
tgrisha · 2022-02-11 10:44

Why the following code works in Lazarus 2.0.12 and don't works in
Lazarus 2.2.0 ?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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;  // Error
in 2.2.0end;
Оn line 17 in Lazarus 2.2.0 I get error EOleSysError: Member not
found.