Delphi OleVariant 取值/赋值操作

Delphi OleVariant 取值/赋值操作

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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;

 

 

创建时间：2021.02.03　　更新时间：