请问string 如何转变为char 数组

Question

我的想向char数组赋string变量的数据，请问如何做
急用，多谢！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  C: array of Char;
  i: Integer;
begin
  S := '12345';
  SetLength(C, Length(S));
  for i := Low(C) to High(C) do
    C[i] := S[i + 1];
end;

Answer 2

用循环太慢了！
var
  S: string;
  C: array of Char;
  i: Integer;
begin
  S := '12345';
  SetLength(C, Length(S));
  Move(S[1], C[0], Length(S));
end;
如果想要把结束符(#0)也复制过来则：
var
  S: string;
  C: array of Char;
  i: Integer;
begin
  S := '12345';
  SetLength(C, Length(S) + 1);
  Move(S[1], C[0], Length(S) +1);
end