【结帖】请帮看看我的语句**

souhuchong01

procedure TMainForm.DocViewYWXX1_BGWD1Enter(Sender: TObject);
var i,k,j:integer;
lComboBox:array[0..50]of TComboBox;
ltop,lleft :integer;
begin
j := self.ComponentCount - 1;
  for i := 0 to j  do
  begin
    if Components[I] is TComboBox then
    begin
      k := i;
      for i := k to j do
       TComboBox(Components[k]).Destroy;
      break;
    end;

  end;
  lleft := 320;
  ltop := 300;

  for i := 0 to DataGrid1.count - 1 do

  begin
     DataSetBZSJJ1.open;
    lComboBox := TComboBox.Create(self);
    lComboBox.Parent := self;
    lComboBox.left := lleft;
    lComboBox.Top := ltop;
    lComboBox.Name := 'Combobox' + sysutils.IntToStr(i + 1);
    ltop := ltop + 56;
    lComboBox.Items.Add(DataSetBZSJJ1.FieldByName('pzmc').asString);
    DataSetBZSJJ1.Next;

  end;
end;

end.
抱错：
[警告] 循环引用: "Biz:\XSGLXT\WJJ\YWGN1.FUNC"-->"Biz:\XSGLXT\WJJ\YWGN1.Func"
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(33, 16): line 33: expecting "of", found '['
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(33, 17): line 33: expecting ';', found '0'
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(33, 18): line 33: expecting "begin", found '..'
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(33, 20): line 33: expecting ';', found '50'
[错误]Biz:\XSGLXT\WJJ\YWGN1.FUNC.DIR\MainForm.Form.pas(33, 22): line 33: expecting "end", found ']'
我想依据datagrid列出的几项，动态创建出几个下拉列表框分别显示datagrid下每一项下的具体内容。我在语句里想创建一个下拉列表框数组（不知对不对）。抱错时光标停留在第三行。

Akon

楼主,是不是lComboBox:array[0..50]of TComboBox;出错了?

souhuchong01

怎么修改呢？我不会delphi语言，就是照猫画虎那一例子改了改。

jiahaiminghr

改成：
lComboBox:array of TComboBox;

在begin后面，加：
setlength(lcombobox, 50);

souhuchong01

好的谢谢。