delphi string 大量字符串时，加载变慢

[解决办法]
> 被你这一步弄坏了S:=String(A);，还有方法么？

应该不是S:=String(A)那行错误。
因为出现了好几个0，
感觉比较可能是下面这二行的错。
for x:=1 to Length(S) do
a[L+x-1]:=S[x];
昨天写的时候告诉你我没Debug了，（只是随手在网上写的，没有运行IDE）
你应该自己设法debug才是。

我通常在论坛回复，
不会给那么精准的答案，
只是表达意思而已，
Debug得你自己多伤脑筋才是。

另，27楼好像给了你很棒的答案，
何不参考？