全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1264
推到 Plurk!
推到 Facebook!

try except

答題得分者是:GrandRURU
feng2939
一般會員


發表:22
回覆:30
積分:15
註冊:2013-03-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-01-04 23:55:11 IP:219.68.xxx.xxx 訂閱
請問各位先進有關 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
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-01-05 09:34:23 IP:59.120.xxx.xxx 未訂閱
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2015-01-05 10:16:49 IP:211.21.xxx.xxx 訂閱

謝謝, GrindRURU 的解答.

問題解決了. 就是將 TRY 換個位置如下:


begin

while not eof(fromfile) do
Try
except
on E: EDataBaseError do
begin
showmessage(e.Message);
....
...
end;
end;



------
DVF
系統時間:2017-10-19 2:32:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!