::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-05 10:26:47, Hit : 4125, Vote : 1102
 Global exception handler ¸¸µé±â

// Application Àüü¿¡¼­ ¹ß»ýÇÏ´Â Exception(¿¹, divide by zero, out of space)
// À» °Ë»çÇÒ ¼ö ÀÖ´Â global exception handler´Â TApplicationÀÇ "OnException"
// À̺¥Æ®¸¦ »ç¿ëÇÏ¿© ±¸ÇöÇÕ´Ï´Ù

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyExceptionHandler(Sender: TObject; E: Exception);
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.MyExceptionHandler(
  Sender : TObject; E : Exception );
var
  wRetVal : Word;
begin
  // Exception ¸Þ½ÃÁö¸¦ È­¸é¿¡ º¸¿©ÁØ ÈÄ ´ÙÀ½ ÁøÇà»óÅÂ(Abort, Retry, Ignore)
  // ¸¦ »ç¿ëÀÚ·Î ºÎÅÍ ¹Þ´Â´Ù
  wRetVal := MessageDlg('ERROR: ' + E.Message, mtError, mbAbortRetryIgnore, 0);

  case wRetVal of
    mrAbort:
      begin
        {"Abort" ½Ã ó¸®ÇÒ ÄÚµå}
      end;
    mrRetry:
      begin
        {"Retry" ½Ã ó¸®ÇÒ ÄÚµå}
      end;
    mrIgnore:
      begin
        {"Ignore" ½Ã ó¸®ÇÒ ÄÚµå}
      end;
    else
      begin
        {»ç¿ëÀÚÀÚ ¹öưÀ» ´©¸£Áö ¾Ê°í Á¾·áÇÒ¶§ ó¸®ÇÒ ÄÚµå}
      end;
  end;

  // ¾Æ·¡´Â default exception handler ÀÔ´Ï´Ù
  // Application.ShowException(E);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // »õ·Î¿î exception handler ¸¦ applicationÀÇ OnException event¿¡ ÇÒ´çÇÑ´Ù
  Application.OnException := MyExceptionHandler;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  // "divide by zero" except¸¦ ¹ß»ý½ÃÄÑ º»´Ù
  i := 0;
  i := 10 div i;
  Showmessage(IntToStr(i));
end;

end.





171   [½Ã½ºÅÛ] Thread »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 4260 1160
170   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] C & Pascal µ¥ÀÌÅÍ Å¸ÀÔ ºñ±³  ±è¿µ´ë 2003/03/05 4259 1138
169   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ComboBox ¸¦ °­Á¦·Î µå·Ó½ÃŰ±â  ±è¿µ´ë 2003/03/05 4251 1136
168   [À©µµ¿ìÁî API] µð½ºÅ© ij½¬ÀÇ ÆÄÀÏÀ» µð½ºÅ©·Î ¾²±â  ±è¿µ´ë 2003/03/05 4247 1133
167   [À©µµ¿ìÁî API] »ç¿ëÀÚÁ¤ÀÇ caption(title) bar ¸¸µé±â  ±è¿µ´ë 2003/03/04 4239 1273
166   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Ç¥ÁØ TListBox ¿¡ Radio ¹öư ¿Ã¸®±â  ±è¿µ´ë 2004/07/27 4237 1158
165   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] OnActivate À̺¥Æ® ³»¿¡¼­ Æû È®½ÇÈ÷ ´Ý±â  ±è¿µ´ë 2003/03/07 4237 1089
164   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚÀÇ ±Ù»çÄ¡ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4234 1133
163   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¹®ÀÚ¿­¿¡ À߸øµÈ ¼ýÀÚ°ªÀÌ µé¾îÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/04 4224 1217
162   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ·¹Áö½ºÆ®¸®ÀÇ ±âº» RootKey ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4222 1278
161   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TEditÀÇ OnChange¿¡¼­ Text ¹Ù²Ù±â  ±è¿µ´ë 2003/03/04 4221 1220
160   [À©µµ¿ìÁî API] ·¹Áö½ºÆ®¸® Àüü °Ë»öÇÏ±â  ±è¿µ´ë 2003/03/07 4219 1141
159   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ ã¾Æ¼­(Search) ¹Ù²Ù±â(Replace)  ±è¿µ´ë 2003/03/04 4216 1252
158   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî"½ÃÀÛ" ¹öưÀ§¿¡ ±Û¾¾ ¾²±â  ±è¿µ´ë 2004/07/24 4211 1156
157   [À©µµ¿ìÁî API] Űº¸µåÀÇ Scroll Lock Äѱâ/²ô±â  ±è¿µ´ë 2003/03/07 4210 1135
156   [½Ã½ºÅÛ] Boot Drive ã±â  ±è¿µ´ë 2003/03/04 4207 1245
155   [µ¥ÀÌÅͺ£À̽º] µ¿ÀûÀ¸·Î SELECTÀÇ GROUP BY ¹® ¸¸µé±â  ±è¿µ´ë 2003/03/07 4201 946
154   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] FormÀÇ Caption ¿¡¼­ÀÇ Click ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/04/01 4199 1047
153   [¸ÖƼ¹Ìµð¾î] waveÆÄÀÏ ¿¬ÁÖ  ±è¿µ´ë 2003/03/04 4190 1212
152   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox¿¡¼­ ¸¶¿ì½º À̵¿½Ã ¾ÆÀÌÅÛÀ» ÈùÆ®·Î º¸¿©ÁÖ±â  ±è¿µ´ë 2003/03/27 4188 1116
151   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBoxÀÇ ItemÀ» ¹öưÀ¸·Î °è¼Ó »èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/07 4184 1135
150   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MemoÀÇ ÀÔ·ÂÇà¼ö Á¦ÇÑÇÏ±â  ±è¿µ´ë 2003/03/07 4181 1179
149   [½Ã½ºÅÛ] CPU speed ±¸Çϱâ 2  ±è¿µ´ë 2003/03/07 4179 1186
148   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INI ÆÄÀÏÀÌ ÀúÀåÀ» ¾È ÇØ?  ±è¿µ´ë 2003/03/05 4172 1114
147   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¿¬¼ÓµÈ Űº¸µåÀÇ Å° ¹ß»ý½ÃŰ±â  ±è¿µ´ë 2003/03/07 4171 1129
146   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Ä¿¼­(ij·µ)°¡ line À§¿¡ ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 4170 1103
145   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] FormÀÌ »ý¼ºµÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/05 4169 1215
144   [À©µµ¿ìÁî API] Menu°¡ openµÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/04 4168 1277
143   [À©µµ¿ìÁî API] Memo ¿¡ ÀÓÀÇÀÇ tab stops ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/04 4165 1331
142   [µ¥ÀÌÅͺ£À̽º] Å×À̺í,À妽º º¹»çÇÏ±â  ±è¿µ´ë 2003/03/07 4164 1426
141   [µ¥ÀÌÅͺ£À̽º] dBase Å×À̺íÀÇ »èÁ¦µÈ ·¹ÄÚµå º¸±â  ±è¿µ´ë 2003/03/07 4161 1120
140   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MenuÀÇ ItemÀ» µ¿ÀûÀ¸·Î ¸¸µé±â  ±è¿µ´ë 2003/03/05 4140 1111
139   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] wild card(*,?)¹®ÀÚ¿Í ÀÏÄ¡  ±è¿µ´ë 2003/03/04 4140 1133
138   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ƯÁ¤ÇÑ Æú´õ·Î À̵¿ÇÑ DOS â ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4131 1136
137   [µ¥ÀÌÅͺ£À̽º] Blob Çʵ忡¼­ ´Ù¸¥ TableÀÇ Blob Çʵå·Î º¹»ç¸¦ ÇÏ·Á¸é...  ±è¿µ´ë 2003/03/05 4130 1097
136   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Hint Ç¥½ÃÀÇ ¼ÓµµÁ¶Àý  ±è¿µ´ë 2003/03/05 4128 1110
135   [µ¥ÀÌÅͺ£À̽º] µ¥ÀÌŸº£À̽º ·Î±×ÀÎ(login) È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4127 1032
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Global exception handler ¸¸µé±â  ±è¿µ´ë 2003/03/05 4125 1102
133   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆûÀÇ ÇüÅ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/05 4121 1098
132   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Unix-format time À» TDateTime ·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4110 1123

[ÀÌÀü 10°³] [1].. 21 [22][23][24][25]
 

Copyright 1999-2023 Zeroboard / skin by zero