大家能不能帮我贴个例子!急求大家!

Question

大家可以贴一个二维动态数组的例子吗?越详细越好!急求大家!

Answer 1

var buffer :array of array of char;
    s:string;
begin
    getmem(buffer,100);
    getmem(buffer[0],10);
    getmem(buffer[1],10);
    s:=edit1.Text;
    copymemory(@buffer[0,0],@S[1],10);
    showmessage(buffer[0,0]);    FreeMem(buffer[0]);
    FreeMem(buffer[1]);
    freemem(buffer);

Answer 2

var
  Arr: array of array of string;
  I, J: Integer;
begin
  // 生成3行4列的二维数组
  SetLength(Arr, 3, 4);
  for I := 0 to 4 do
    for J := 0 to 6 do
      Arr[I, J] := inttostr(I + J);
end;

Answer 3

var
  MyArr: array of array of Integer;
  I, J: Integer;
begin
  // 生成3行4列的二维数组
  SetLength(MyArr, 3, 4);
  for I := 0 to 2 do
    for J := 0 to 3 do
      MyArr[I, J] := I * J;
end;

Answer 4

http://expert.csdn.net/Expert/topic/3025/3025345.xml?temp=.9820063