就题论事，当然可以自动创建n个edit了，但的确用dbgrid更加方便。Type ArrayEdit=Array of TEdit;Var gEdits:ArrayEdit;procedure TForm1.Button1Click(Sender: TObject);var t:TEdit; I,H,iTop:Integer;begin //释放之前创建的控件 For I:=Low(gEdits) to High(gEdits) do gEdits.Free; SetLength(gEdits,0); iTop:=3; Query1.first; while not Query1.eof do begin t:=TEdit.Create(Self); t.Parent:=panel1; t.Left:= 5; t.Top:= iTop; iTop := iTop+25; t.Text:= Query1.fieldbyname('bar_no').AsString; //将当前Edit保存到列表中，方便程序其他地方调用 SetLength(gEdits,Length(gEdits)+1); gEdits[High(gEdits)]:=t; Query1.next; end;end;
