widestring 中数据如何弄到 array [0..100] of widechar 里面？？

Question

例如：VAR  
           S1：string;
           s2: widestring;
           a1:array[0..100] of widechar;
      begin
           s1:='i love delphi!';
           s2:=s1;    //这部分转化是自动的吧，把单字节字符串转化为UNICODE串
           MOVE(s2,a1,200);//这样怎么不行呢？
           用什么方法行呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp1:array[1..100] of widechar;
  tmp2:widestring;
begin
  tmp2:='asfddddddddddddddddddd';
  copymemory(@tmp1[1],@tmp2[1],100);
  showmessage(tmp1);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp1:array[1..100] of widechar;
  tmp2:widestring;
begin
  tmp2:='asfddddddddddddddddddd';
  move(tmp2[1],tmp1,100);  showmessage(tmp1);
end;

Answer 3

谢谢了，我的结症所在就是
：WIdestring 第一个元素下标是从1开始而非0。