如: if frmorder.Showing=true then begin with frmorder do begin edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; edit6.Text:=''; edit7.Text:=''; edit8.Text:=''; edit9.Text:=''; edit10.Text:=''; edit11.Text:=''; edit12.Text:=''; combobox1.Text:=''; combobox2.Text:=''; end; end;
if frmorder.Showing=true then
begin
with frmorder do
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
combobox1.Text:='';
combobox2.Text:='';
end;
end;