var
  V:OleVariant;
begin
  V:=VarArrayOf([Label1.Caption]);
end;

解决方案 »

  1.   


    var
      V:OleVariant;
    begin
      V:=VarArrayOf([Label1.Caption]);
      ShowMessage(String(V[0]))
    end;
      

  2.   

    var
      v: OleVariant;
      s: string;
    begin
      s := 'abc';
      v := s;
    end;好了,用赋值形式。不过最好你的string能换成widestring;
      

  3.   

    直接可用。Delphi会把string直接转成OleVariant,最好用widestring.
      

  4.   

    阿明所做的结果是把string变成了数组。最好不要。