溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

delphi中try的用法1

發(fā)布時間：2020-07-09 22:45:35 來源：網(wǎng)絡(luò) 閱讀：392 作者：smiledesky1 欄目：開發(fā)技術(shù)

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;


向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手