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;

请问大家还有其他办法?

[解决办法]
什么错误信息呀>>>>>>>
[解决办法]
什不直接就 c := b;
[解决办法]

探讨

什不直接就 c := b;

[解决办法]
什么乱七八糟的，你a是10位，c=a，那c不是10位是几位
[解决办法]
粗心大意，以后一定要仔细认真哦.
[解决办法]
想知道后面6位是什么内容？是空不？
[解决办法]
b := 'test';
b的长度=4 ，你为什么用b【10】，超出范围