delphi 清空dbgrd和StringGrid

界面中有dbgrd和StringGrid，做“清空”操作，需求中要求清空信息包括清空所有的下拉列表、文本框以及dbgrd和StringGrid。

//文本框

edt1.Text := '';

//下拉列表

cbb1.ItemIndex:=-1;

//清空dbgrd

dbgrd1.DataSource.DataSet.Close;

dbgrd1.Refresh;

//清空StringGrid

for   i:=1   to   strngrd1.rowcount   do
begin
      for   j:=1   to   strngrd1.colcount   do
          strngrd1.cells[j-1,i-1]:='';

end;