try...except..end;查询异常

创新互联公司是一家专业提供淮安区企业网站建设,专注与成都网站建设、做网站、HTML5、小程序制作等业务。10年已为淮安区众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

  try

   edHH.Visible := False;

   ListBox.Visible := not edHH.Visible;

   listBox.Clear;

   I := 0;

   while not Eof do

   begin

    SendToExeLog('H11');

    listBox.Items.Add(IntToStr(ZSBID) + ' ' + ZNAME);

    setlength(myPP, i + 1);

    myPP[I].myInx := (ZBASEID);

    inc(I);

   end;

   RgBox.Caption := '请选择品牌';

   ListBox.SetFocus();

  except

   on E: Exception do

   begin

    DataMain.sLastError := e.Message;

    SendToExeLog(e.Message);      //返回错误原因到日志中

   end;

  end;

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享题目：delphi中try的用法1-创新互联
网站路径：http://scgulin.cn/article/ccgodc.html