如何将多个字符串数组连接成为一个字符串？

[WindowsX]

话说某人这样定义一个字符串数组，我如何把这些字符串数组的值连接在一起，成为一个字符串？

var 
    StrArray   :   array   [0..255]   of   String   ; 
    NewStr     :   String;

赋值: 
    StrArray[0]   :=   'This   is   a   test! '   ; 
    StrArray[1]   :=   'This   is   another   test! '   ; 
      .... 
    StrArray[255]   :=   'this   is   the   last   test! '   ;
    //如何把StrArray[0],StrArray[1],..,StrArray[255]的值连接起来，然后赋值给NewStr。谢谢。

[bdmh]

循环拼接吧

[WindowsX]

如何循环拼接？谢谢~~

为何Concat不提供这样的功能呢？

var I:integer;
...
Concat(StrArray[0],StrArray[1],..,StrArray[I]);

[WindowsX]

如何循环拼接？谢谢。。。。

[Forever_Young]

循环拼接

  for i:=low(StrArray) to high(StrArray) do
    NewStr := NewStr + StrArray[i];

[dinoalex]

NewStr:='';
for i:=0 to length(StrArray) - 1 do
NewStr:= NewStr + StrArray[i];