如何有效地将OleVariant数组复制到我自己的结构中？

type
  TMyStruct = record
    Field1: Integer;
    Field2: WideString;
    // 其他字段...
  end;

procedure CopyOleVariantArrayToStruct(const OleVariantArray: OleVariant; var MyStructArray: array of TMyStruct);
var
  i: Integer;
begin
  for i := 0 to High(OleVariantArray) do
  begin
    MyStructArray[i].Field1 := OleVariantArray[i].Field1;
    MyStructArray[i].Field2 := OleVariantArray[i].Field2;
    // 复制其他字段...
  end;
end;

// 示例用法
var
  OleVariantArray: OleVariant;
  MyStructArray: array of TMyStruct;
begin
  // 获取OleVariant数组，这里假设从某个数据源获取到了OleVariant数组
  OleVariantArray := GetOleVariantArray();

  // 调整MyStructArray的长度与OleVariantArray相同
  SetLength(MyStructArray, Length(OleVariantArray));

  // 将OleVariant数组复制到自定义结构体数组中
  CopyOleVariantArrayToStruct(OleVariantArray, MyStructArray);

  // 现在可以使用MyStructArray中的数据了
end;