string转换为char急！！！

Question

password:array[0..6]of char;
 mm:string;（长度为6）
怎样才能把mm的值赋给password，谢谢！

Answer 1

for i := Low(password) to High(password) do begin
  password[i] := mm[i + 1];
end;

Answer 2

var
  cc : string;
  dd : array [0..255] of char;
begin
  cc := 'Hello';
  copyMemory(@dd,pchar(cc),Length(cc));
  showmessage(dd);

Answer 3

for i:=1 to 6 do
 password[i-1]:=mm[i];

Answer 4

var
  password:array[0..6]of char;
  mm:string;
  i: integer;
begin
  for i:= 0 to 6 do
  begin
    password[i] := chr(65+i);
  end;
    mm := password;
  showmessage(mm);

Answer 5

for i:=0 to 6 do begin
password[i]:=mm[i-1];
end;

Answer 6

function StrPCopy(Dest: PChar; const Source: string): PChar;