str:string,aa:array[0..20] of char,如何把str的值赋给aa

Question

str:string,aa:array[0..20] of char,如何把str的值赋给aa?

Answer 1

for i:= 0 to 20
  aa[i] := str[i+1];

Answer 2

str := aa;
str[0] 存储的是str的长度
str的第一个字符从str[1]开始

Answer 3

啊啊啊啊啊啊啊啊啊啊，我发疯了，我弄了一天，就是忘了字符串是从1开始的，我打成str[i],怎样赋aa都是空的，嗨，真粗心啊：（，哭啊，谢谢了老兄

Answer 4

var
  i,j,k : integer ;...
i := Length(str);
j := High(aa) + 1 ; //因为 aa 从 0 开始if i <= j then
  for k := 0 to i-1 do
    aa[k] := str[k+1]
else
  for k := 0 to j-1 do
    aa[k] := str[k+1] ;