Delphi 为什么这样给二维数组赋值会报错

Question

type
  TLineData=array of TStringList;
procedure TFrm_Main.Standard(Sender: TObject);
begin
  list:TLineData;
  arrayLength:Integer;
  arrayLength:=DM.ADOStandard.RecordCount;
  while not DM.ADOStandard.Eof do
  begin
    list[i,0]:=DM.ADOStandardCUST_CODE.AsString;
  end;
end;

Answer 1

这不是二维数组，list[i][0]可以，数组和类的默认属性不是一回事

Answer 2

字符串二维动态数组
data: array of array of string;
动态数组需要设置长度，两维都要设置
setlength( data, 10 );
setlength( data[0], 10 );
然后就可以像你那样使用了
list[0][0] := 'abc';

Answer 3

谢了
setlength( data, 10 );
这是设置row的长度
setlength( data[0], 10 );
这是设置col的长度
吧

Answer 4

变量得这样声明吧，LZ那样语法检查都能不过~~~~~~~~~~~~
procedure TFrm_Main.Standard(Sender: TObject);
var
  list:TLineData;
  arrayLength:Integer;
begin
  arrayLength:=DM.ADOStandard.RecordCount;
  while not DM.ADOStandard.Eof do
  begin
  list[i,0]:=DM.ADOStandardCUST_CODE.AsString;
  end;
end;