array of char赋值给string的问题

[simonvc]

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;

请问大家还有其他办法?

[山东蓝鸟贵薪]

什么错误信息呀>>>>>>>

[Oraclers]

為什麼不直接就 c := b;

[天涯倦客]

[Quote=引用 2 楼 oraclers 的回复:]

為什麼不直接就 c := b;
[/Quote]

我也这么想的。。

[bdmh]

什么乱七八糟的，你a是10位，c=a，那c不是10位是几位

[babydog01]

粗心大意，以后一定要仔细认真哦.

[sforiz]

[Quote=引用 7 楼 zhaodog 的回复:]
b := 'test';
b的长度=4 ，你为什么用b【10】，超出范围
[/Quote]

居然没有报错？

[likeyrain]

想知道后面6位是什么内容？是空不？

[zhaodog]

b := 'test';
b的长度=4 ，你为什么用b【10】，超出范围

[simonvc]

我自己已经搞定: c := StrPas(@a);