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



    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;