当我在XE4中运行此代码时,应用程序最终使用~800 MB.
为什么不接近100 MB?
使用Ansistring而不是字符串没有区别.
const
N = 10000000; // 10 million
M = 10;
var
i,j: integer;
s: string;
X: array of string;
begin
setlength(X,N);
for i:= 1 to N do
begin
s:= '';
for j:= 1 to M do s:= s+chr(65+random(25));
X[i-1]:= s;
end;
showmessage('pause');
end;
Run Code Online (Sandbox Code Playgroud)