在VB中,可以这样: If bSwapAxis = True Then ReDim Data(0 To iRowCount, 0 To iColCount) Else ReDim Data(0 To iColCount, 0 To iRowCount) End If 但是在delphi中该如何实现这样的效果呢?

var
  aa: array of string;
  bb: array[1..10, 1..20] of string;  //靜態二維陣列
begin
  SetLength(aa, 10);  //動態設定一維陣列的方法
end;

delphi可以動態的設一維陣列,可是二維似乎就沒有了 當然你可以用二個動態的一維陣列代替也可以 試試

uses Variants var tt:variant tt:=VarArrayCreate([0,17,0,Count],VarVariant); 這樣會產生[0,Count]....[17,Count] 17你可以自己去由數變決定~~長度由Count決定~ ~進步~ 別人問題~將是我問題~ 決解問題~ 再邁向更頂尖~

var
  aa: array of array of string;
  i:integer;
begin
If bSwapAxis Then
   begin
   SetLength(aa, iRowCount 1);
   for i:=0 to iRowCount do SetLength(aa[i], iColCount 1);
   end
   Else
   SetLength(aa, iColCount 1);
   for i:=0 to iColCount do SetLength(aa[i], iRowCount 1);
   End;
end;
 

var
  a: array of array of string;    begin     if bSwapAxis then SetLength(a, iRowCount 1, iColCount 1)
 else SetLength(a, iColCount 1, iRowCount 1);    end;