如何把字符串赋一个字符数组?

Question

我想把一个输入框里的字符串赋给一个数组,数组类型是这样的 ,该怎样写?shuzu:array[0..16] of  char;

Answer 1

直接赋值
procedure TForm1.Button1Click(Sender: TObject);
var
  shuzu:array[0..16] of  char;
begin
  shuzu:='cxwcwecwcwe';
end;

Answer 2

如果数组类型是byte类型的呢?
shuzu:array[0..16] of byte又该怎样赋值呢?

Answer 3

或者:
procedure TForm1.Button1Click(Sender: TObject);
var
  shuzu:array[0..16] of  char;
  i:integer;
begin
  for i:=1 to Length(Edit1.Text) do  if i <=16 then shuzu[i-1]:=Edit1.Text[i];
end;