界面中有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;