Delphi Try 除了最終使用問題

procedure : tobject);

那麼 Beginif 是否已經有連線？

begintry

斷開。

退出連線。

begin=;:=strtoint(;

連線伺服器屬性設定。

連線。 showmessage('網路正在工作！ ');

伺服器路徑已初始化。

remotepath:='/';

重新整理伺服器檔案列表。

displayremotefilelist();

end;except

messagedlg('出現網路錯誤，我無法與伺服器建立連線！ ',mterror, [mbyes],0);

end;end;

end;

網路宕機了，你還想連線什麼？

10065 錯誤，請檢查。

socket error code

人們清楚地告訴你，你無法連線到網際網絡。

procedure : tobject);

beginif not then

false;

'pc-201004041415';

strtoint(;

showstr('正在構建'+'的連線。 ');

except on e:exception dobegin

showstr('connection error '+;

end;end;

end;

try except end 語法是丟擲異常。

try...

except

on...do

.end;這是一種異常處理，就是只處理 ON 識別符號之後的異常，這裡的 einouterror 是乙個 Io 異常類，是程式執行時在失敗後嘗試對檔案或外圍裝置進行操作後生成的。

例; try

age := strtoint(;

showmessage(format('生於 %d', [yearof(now) -age]))

except

on econverterror do

showmessage('輸入框不是有效數字！ ');

on erangeerror do

showmessage('輸入框的年齡值太大！ ');

你可以通過使用 Shift+Ctrl+F9 執行 Mingbo 來檢視效果 不要直接 f9，f9 除錯過程中的任何異常都會先被偵錯程式捕獲，所以會彈出錯誤，或者你可以點選下一步繼續。

使用 try . . end 包含容易出錯的語句，因此如果發生錯誤，它仍然在迴圈中，並且會再嘗試幾次用於巢狀保護。

tryexcept

它用於捕獲錯誤並處理它們。

例如，如果您需要在編輯中輸入乙個數字，但其他人在其中輸入了幾個漢字，則在執行 strtoint（） 時程式將出錯。 並嘗試...除了可以捕獲錯誤並處理它。

例如：try

strtoint(;

exceptbegin

showmessage('請輸入乙個數字');

end;

try123

except

4end;5.如果1中出現錯誤，則執行4; 然後 5

嘗試後的那個將不會被執行。

樓上你自己回去測試一下，別說話。

procedure : tobject);

vari,j:integer;

k:double;

begintryk:=0;

i:=0;j:=5;

k:=j/i;異常。

k:=4;except

i:=1;end;

showmessagefmt('i:%d,j:%d,k:%f',[i,j,k]);

end;結果 i：1，j：5，k：=4 未執行。

except 後面的 ** 將繼續。

執行，如果你不想執行，就把它扔進去。

您嘗試將其更改為 a、b：整數

如果可以的話，浮點數一般只是乙個近似值，如果是實數的a，a：=0賦值，a的值可能只有，不等於0，所以不會造成誤差，因此，在比較浮點數時，通常不可能直接用=來判斷。