Delphi动态申请数组内存的方法，不使用SetLength，采用和C相似的方式

procedure TForm1.Button1Click(Sender: TObject);

type

TArr = array [0..0] of Integer;

PArr = ^TArr;

var

arr: PArr;

i: Integer;

begin

GetMem(arr, 100);

for i := 0 to 100 - 1 do

arr[i] := i;

for i := 0 to 100 - 1 do

OutputDebugString(PChar(Format('%d'#13, [arr[i]])));

FreeMem(arr);

end;

procedure TForm1.Button2Click(Sender: TObject);

type

TArr = array [0..0,0..0] of Integer;

PArr = ^TArr;

var

arr: PArr;

i, j: Integer;

begin

GetMem(arr, 100);

for i := 0 to 10 - 1 do

for j := 0 to 10 - 1 do

arr[i][j] := i * j;

for i := 0 to 10 - 1 do

for j := 0 to 10 - 1 do

OutputDebugString(PChar(Format('%d', [arr[i][j]])));

FreeMem(arr);

end;

http://blog.csdn.net/henreash/article/details/14452327