Delphi中的变体Variant数组相关函数.docxVIP

1.VarArrayCreate procedure TForm1.Button1Click(Sender: TObject); var V, W : Variant; i : Integer; begin V := VarArrayCreate([1,4], varVariant); V[1] := 1; V[2] := 2; V[3] := True; V[4] := 4.5; for i := VarArrayLowBound(V, 1) to VarArrayHighBound(V, 1) do begin Memo1.Lines.Add(V[i]) end; W := VarArr