有辦法自己產生錯誤嗎? |
|
答題得分者是：chenyk
|
|
chjunsen
一般會員   發表：38 回覆：15 積分：10 註冊：2006-10-25 發送簡訊給我 |
|
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
|
|
chenyk
高階會員 發表：14 回覆：95 積分：171 註冊：2002-07-08 發送簡訊給我 |
根據 delphi help 寫的範例：
procedure TForm1.Button1Click(Sender: TObject); const VAR_MIN = 1; VAR_MAX = 9; var nInp : Integer; begin try nInp := StrToInt(Edit1.Text); // StrToInt is declared in SysUtils if (nInp < VAR_MIN) or (nInp > VAR_MAX) then raise ERangeError.CreateFmt( '%d is not within the valid range of %d..%d', [nInp, VAR_MIN, VAR_MAX]); except on E: ERangeError do ShowMessage(E.Message); end; end;
編輯記錄
chenyk 重新編輯於 2010-11-12 00:26:09， 註解 無‧
|
發表時間：2010-11-10 11:07:28
IP:202.39.xxx.xxx 訂閱
系統時間：2024-04-25 9:27:35
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |