【结】定义二维数组出错**

lili7912

type  
SJ=array of string;
procedure TCLJSJ.btExcelClick(Sender: TObject);
var
  lSJ:array of SJ;
  lI,lJ,lCount:Integer;
begin
  lCount:=Query1.RecordCount;
  setLength(lSJ, lCount);

  for Li:=0 to lCount do
    setlength(SJ[li], 9);  //该行出错，提示见下面
end

[错误]Biz:\YTSBGLXT\CLGL\CLDD\CLDD.FUNC.DIR\CLJSJ.Form.PAS(61, 18): Incompatible types: "String[]" and "Int32"

lixy

setlength(lSJ[li], 9);       楼主少写了一个l

lili7912

明白了。谢谢！