如何string内容复制到char数组中？

Question

谢谢！如题

Answer 1

var
  ChArr: array[0..7] of Char;
  Str: string;
begin
  Str := 'Delphi6';
  StrPCopy(ChArr, Str);
  ShowMessage(ChArr);
end;

Answer 2

var
   charr:array[0..5] of char;
   str:string;
   i:integer;
begin
string内容复制到char数组中
   str:='delphi';
   strPCopy(charr,str);
   showmessage(charr[1]);
   str:='';
   showmessage(str);
char数组中内容复制到string
    for i:=5 downto 0 do
     begin
       str:=charr[i]+str;
       showmessage(str);
     end;
       showmessage(str);
end;嘎嘎~~~~~~`