从delphi7 到 Delphi2010 ---(二) 内存管理

delphi 2010 的内存管理 对 delphi 7 的内存管理进行了改善.
下面这段代码 在两个编译器下均能正常运行, 但是我们发现 , delphi 2010 可以申请更多的内存.
---- 测试环境 : windows 7.0

procedure TForm1.Button3Click(Sender: TObject);

const nm = 1024*1024*500;

   Type

       TAA = packed array[1..nm] of byte;

       PAA = ^TAA;

   var A:array[1..4] of   PAA;

       i,n:integer;

begin

    for I := 1 to 4 do

    begin

        try

          A[i]:=nil;

          getmem(   A[i] , sizeof( TAA));

        except

           on E:Exception do

              memo1.Lines.Add( e.Message) ;
        end;

          memo1.Lines.Add( format('%p',[A[i]])) ;

   end;
   showmessage('OK');
    for I := 1 to 4 do

    begin

       if (A[i]<>nil) then

       begin

         freemem( A[i] );

       end;

    end;
end;

delphi 7 编译的程序之运行结果 :

10090004

Out of memory

00000000

Out of memory

00000000

Out of memory

00000000

//   delphi 2010 编译的程序之运行结果 :
40D10010

21900010

Out of memory

00000000

Out of memory

00000000