你所说的标号语句是不是Goto语句？

　　你的问题没有边际。我还是就我所知道的，给你一个回答。Delphi不主张使用标号语句，但支持标号语句。

　　下面这段程序是我写的：其中使用了标号语句

　　procedureTjmxxxtmai.Button23Click(Sender:TObject);

　　label10;//申明标号

　　var

　　xqidh,fhidh:word;//小区ID号，房号ID号

　　dys,cs,ts:word;//单元数，层数，套数

　　i,j,k:word;

　　sqlyj:string;

　　begin//jmiddateMD.jbxxczb.CommandText:='selectid,fhidas房号ID号,xqidas小区ID号,ldmcas楼栋名称,dyhas单元号,fhas房号,mjas面积fromjmxxfhb';

　　//'selectid,ljidas路街ID号,mphidas门牌号ID,xqidas小区ID号,xqmcas小区名称fromjmxxxqmcb';

　　if(combobox9.Text='')or

　　(edit11.Text='')or

　　(edit12.Text='')or

　　(edit14.Text='')or

　　(edit13.Text='')then

　　begin

　　showmessage('房屋信息不完整，不能批量建立住房信息！');

　　exit;

　　end;

　　if(combobox10.ItemIndex=2)and((edit16.Text='')or(edit17.Text=''))then

　　begin

　　showmessage('房屋面积信息不完整，不能批量建立住房信息！');

　　exit;

　　end;

　　sqlyj:='selectxqid,xqmcfromjmxxxqmcbwherexqmc='''+trim(combobox9.Text)+'''';

　　sjsfcfjc(sqlyj);

　　ifjmiddateMD.sjcfxjc.RecordCount>0then

　　xqidh:=jmiddateMD.sjcfxjc.FieldByName('xqid').Value;

　　sqlyj:='selectmax(fhid)asfhidfromjmxxfhb';

　　sjsfcfjc(sqlyj);

　　ifjmiddateMD.sjcfxjc.FieldByName('fhid').Valuenullthen

　　fhidh:=jmiddateMD.sjcfxjc.FieldByName('fhid').Value+1

　　else

　　fhidh:=1;

　　ifcheckbox2.Checkedthen

　　begin

　　dys:=1;

　　cs:=1;

　　ts:=strToint(edit12.Text);

　　end

　　else

　　begin

　　dys:=strToint(edit12.Text);

　　cs:=strToint(edit13.Text);

　　casecombobox10.ItemIndexof

　　0:ts:=1;

　　1:ts:=2;

　　2:ts:=4;

　　end;

　　end;

　　fori:=1todysdo//单元数

　　begin

　　forj:=1tocsdo//层数

　　begin

　　fork:=1totsdo//套数

　　begin

　　ifcheckbox1.Checkedand(j=1)then

　　goto10;//当if条件满足时，程序执行的顺序就会跳转，去执行标号10出现的位置后的语句。

　　jmiddateMD.jbxxczb.Append;

　　jmiddateMD.jbxxczb.FieldByName('房号ID号').Value:=fhidh;

　　fhidh:=fhidh+1;

　　jmiddateMD.jbxxczb.FieldByName('小区ID号').Value:=xqidh;

　　jmiddateMD.jbxxczb.FieldByName('楼栋名称').Value:=trim(edit11.Text);

　　jmiddateMD.jbxxczb.FieldByName('单元号').Value:='第'+intTostr(i)+'单元';

　　jmiddateMD.jbxxczb.FieldByName('房号').Value:=intTostr(j)+'0'+intTostr(k);

　　ifcheckbox2.Checkedthen

　　begin

　　jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit13.Text

　　end

　　else

　　begin

　　casecombobox10.ItemIndexof

　　0:begin

　　jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text;

　　end;

　　1:begin

　　ifk=1then

　　jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text;

　　ifk=2then

　　jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit15.Text;

　　end;

　　2:begin

　　ifk=1then

　　jmiddateMD.jbxxczb.FieldByName('面积').Value:=edit14.Text;