array of char赋值给string的问题

var
  a: array[1..10] of char;
  b: string;
  c: string;
  i: integer;
begin
  b := 'test';
  for i := 1 to 10 do
    a[i] := b[i];
  c := a;
  showmessage(quotedstr(c));  //我发现 c 的长度是十位, 也就是说把test赋给a后, 剩下的六位也赋给c了, 如何解决 ?
end;其中一种办法就是:
  for i := 1 to 10 do
  begin
    if ord(a[i]) <> 0 then
      b[i] := a[i];
  end;请问大家还有其他办法?