学步园

uses Variants;
VarToStr();

如果返回的是一个数组的话
var
UTempPoint: Pointer;
UOutArr: array[1..6] of string;//假设返回的是1维数组有6个元素
begin
  UTempPoint := VarArrayLock(返回的OleVariant变量);//锁定输出变体数组
  try
    Move(UTempPoint^,UOutArr[1],6*SizeOf(string));
  finally
    VarArrayUnlock(UTemp);//解锁
  end;
  //这时UOutArr[1]..UOutArr[6]里面都是string类型的数据了
  //ShowMessage(UOutArr[1]);
end;