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

上一篇:职工管理系统


下一篇:C#多线程同步事件及等待句柄AutoResetEvent 和 ManualResetEvent