如何将字符串数组转换为字符串？

Question

如何将字符串数组转换为字符串？或者还有什么想法吗？

我这样做是这样的：

var
    s:string;
    i:integer;
begin
    for i:=1 to 10000 do
    begin
        if (i mod 2)=0 then
            s:='a'+s
        else
            s:='b'+s;

    end;
end;

正如你所看到的，i将变成大数1000或10000或10000，所以这意味着我必须这样做10000次，我怎样才能在很短的时间内完成这个任务..使用数组？请给一个示例代码..

Answer 1

SetLength(s, n);
for i := 1 to n do
  s[i] := ...

是您需要的习语。

您的代码很慢，因为它在每次迭代时执行内存分配和复制。这种预分配缓冲区的方法避免了这种情况。