请教下Delphi里Tstrings怎么转成Variant？

Question

1.Tstrings怎么转成Variant？
除了用循环外有没有其他快捷的方法？2.Variant一维数组有没有简便的增加/删除/插入某个元素的办法？像tstringlist的add/delete/insert的方法？1和2两个问题回答一个就可以了   谢谢   分不多   见谅

Answer 1

1. Variant属于变体类型，所以String类型和Variant类型是可以互相转换的.
   TStrings有个Delimiter属性和DelimitedText属性.
   Delimiter属性是存储字符串的分隔符,DelimitedText属性是存储用Delimiter分隔的字符串.
　　例如：
   
   var
     slTest: TStrings;
   begin
     slTest := TStringList.Create;
     slTest.Add('123');
     slTest.Add('456');
     slTest.Delimiter := ';';
     ShowMessage(slTest.DelimitedText);
   
   显示的字符串是：123;456.　由于返回值是String类型, 所以可以使用Variant类型存储.2. 一般说Variant类型的数据不太便于储存.　我只知道可以使用VarArrayOf方法把数据或几个字符串连接起来.
  例如：VarArrayOf(['123', '456', '789'])