procedure GetEData(sdata:OleVariant);  //取值
var
  sdata: OleVariant;
  High, Low, i: Integer;
  sList: TStringList;
begin
  sList:=TStringList.Create;
  try
    High := VarArrayHighBound(sdata, 1);
    Low := varArrayLowBound(sdata, 1);
    for i := Low to High do
    begin
      sList.Add(inttostr(sdata[i]))
    end;
  finally
    sList.Free;
  end;
end;

procedure SetEData(sdata:OleVariant);  //赋值
var
  i: Integer;
begin
  sdata := VarArrayCreate([0, 1000], varInteger);
  for i := 0 to 1000 do
    sdata[i] := i;
end;