try except |
|
答題得分者是：GrandRURU
|
|
feng2939
一般會員   發表：22 回覆：30 積分：15 註冊：2013-03-26 發送簡訊給我 |
請問各位先進有關 try except 問題: 1. 在 while 中, 若遇有 except 的 事件時, 希望在處理完, except 事情後, 仍能繼續完成 while 的事件, 如: eof(fromfile) 2. 目前碰到的問題是, except 的動作做完後, 就離開 while 的狀況, 無法做到 eof(fromfile) 3. 試過用 goto 到 label 的方式, 但在 except 內不接受. 程式如下: begin Try while not eof(fromfile) do … … … except on E: EDataBaseError do begin showmessage(e.Message); .... ... end; end;
------
DVF |
|
GrandRURU
站務副站長  發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
while not Query.Eof do
begin try ... except on E: Exception do begin ShowMessage(E.Message); Query.Next; // 這兩行應該是多餘了 continue; // 這兩行應該是多餘了 end Query.Next; end; ===================引 用 feng2939 文 章=================== 請問各位先進有關 try except 問題: 1. 在 while 中, 若遇有 except 的 事件時, 希望在處理完, except 事情後, 仍能繼續完成 while 的事件, 如: eof(fromfile) 2. 目前碰到的問題是, except 的動作做完後, 就離開 while 的狀況, 無法做到 eof(fromfile) 3. 試過用 goto 到 label 的方式, 但在 except 內不接受. 程式如下: begin Try while not eof(fromfile) do … … … except on E: EDataBaseError do begin showmessage(e.Message); .... ... end; end;
|
|
feng2939
一般會員 發表：22 回覆：30 積分：15 註冊：2013-03-26 發送簡訊給我 |
發表時間：2015-01-04 23:55:11
IP:219.68.xxx.xxx 訂閱
系統時間：2024-04-27 2:50:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |