s:='';
for i:=1 to 10000 do //这个好像不怕
s:=s+'*'+inttostr(i);
writeln(s);

writeln('');

s:='*';
for i:=1 to 100 do //这个到20都还可以
//刚才写了100，内存被它吃了600M，然后delphi报了内存不足，然后错误框上都没文字了。。。最后崩了
//（是在ide里运行脚本解释程序）
s:=s+inttostr(i)+s;
writeln(s);

知道这样作是点中了delphi分配字符串的死穴，想看看脚本解释器是不是也有这样的死穴
不过仔细想来，可能不是内存分配方式的失误，而是它的确需要太多的内存了