不知道这句错在哪里,请教各位高手！

Question

在下面语句中    Data := VarArrayLock(v_pkg);////就是这句出错了,
请教！是什么原因
procedure TRDM.S_Add(var v_pkg: OleVariant);
var  Data: PChar;
begin
  try
    Data := VarArrayLock(v_pkg);////就是这句出错了,
    try
      Move(Data^, FInpkg, SPackageLength);
    finally
      VarArrayUnlock(v_pkg);
    end;    DM.S_Add(FInpkg);  except
    On E: Exception do begin
      Raise;
    end;
  end;
end;

Answer 1

v_pkg里面是什么數據類型﹖錯誤信息是什么﹖
如果v_pkg中不是字符串類型的話﹐Data用PCHAR類型應該不是很合適吧。

Answer 2

是不是要把olevariant转换一下，好像有一个函数。vartoarray?还是什么？

Answer 3

错误信息如下：
[Error] RDMUnit.pas(74): Undeclared identifier: 'VarArrayLock'