1 פיט - יפלד
ישאר דומע | םיפיטה דומע רנק ודיע תאמ

? םימיוסמ םירבד םיעצבמ םתא רשאכ םילבקמ םתאש האיגש תועדוה תא רוצעל םיצור םתייהש ןוכנ

:תורשפאה תא שי קיסיבב ןכבו
On Error Goto
:וא
On Error Resume Next
...'וכו

?!? יפלדב שי המ לבא
,תונבומ אל תועדוה רותב שמתשמל תגצומ היהת איהש ללכב וא ,הנכותה תא ליפהלמ האיגש םירצוע ךיא
?? םולכ ול תורמוא אל רשא

.TRY הרומשה הדוקפה םע האבה הרוצב תוליחתמ ןלוכו תואיגשב לופיטל תורוצ המכ שי יפלדב ,ןכבו

תעדוהל תצפוק דיימ איה החילצמ אל הלועפ רשאכש תושימגה תא ונל תנתונ רשא ,הנושאר תורשפא
:וז איה האיגשה

... // There are some code above the lower lines.
Try 
	Case Message.msg of
		WM_Maximize : ....
		WM_Minimize : ...
		WM_Move       : ...
		...
	End;
Except  //This is what we need ...
	Raise Exception.Create('An error was found');
End;
...

.םיוסמ טקייבואל הרק הרקמ הזיא תולגל ןויסנ שי ,ל"נה אמגודב םיאור םתאש ומכ

? תמיוסמ האיגש תארוק רשאכ הרוק המ לבא
תעדוה גיצת ךלש תינכותהש םוקמב זא ,Case ה טפשמב עיגמש דוקב וא ,הרקש הרקמב הז םא ןיב
.הזמ רתוי םירמוא אל ונחנא ךא ,האיגש וזיא שיש שמתשמל דיגהל הל םירמוא ונחנא ,"ץוחב אצת"ו האיגש

? בוט הז המל םילאוש םתא זא
,תילאטפ האיגש לש הרקמב קר רצעת איה רמולכ) רצעת תינכותהש ילבמ האלה ךישמהל םיצור םתא םא ןכבו
.(בוט אל והשמ הרקש עדוי אל שמתשמה םא םג) רדהנ הז ירה ,הנממ ךישמהל רשפא יא רשא

.םיקדוצ םתאש םכל רמוא ינאו םכל רוזעל לוכי אל הז םירקמ הברהבש יל םירמוא םתא וישכע
? וישכע תושעל רשפא המ זא

שמתשהלו תכלל טושפ רשפא ,EXCEPT ב שמתשהלב םוקמב זאו האיגשה ךרע תא לבקל רשפא ןכבו
.ליגר TRY-ב


:רמולכ
Try //Do something ...
 ....
Finally // In the End of the Above statement do ...
...
End; //That's all ...

םהש הזיא גיצת וא לופית ילש תינכותהש ילבמ האלה םיכישממו האיגשה תא "םיספות" וישכע ךיא זא בוט
?? דחא ףאל תומיאתמ אלש האיגש תועדוה

.SetErrorMode תארקנש הדמחנ API תיצקנופ שי
.יהשלכ האיגש תעדוה שי רשאכ תושעל המ תונולחל דיגהל טושפ רשפא ,וז היצקנופב
:םה לבקל הלוכי וזה היצקנופהש תויורשפאה

.האיגשה ךרע תא הריזחמ היצקנופה *
לפטל לכות אלו ןולחה לש הרוהל רובעי האיגשה לש ךרעה ,MDI CHILED ב שמתשמ התאו הדימב *
."דלי"המ דבל תואיגשב

:יפלדב הב םישמתשמ ךיא הארנ ואוב ,היצקנופה לש תונוכתהמ המכ ונרכהש ירחא ,וישכע

...
var
  wOldErrorMode : Word;

...
wOldErrorMode := {Tell Windows to ignore any error. The Variable  
                  receve the old way Windows handle the Error 
                  Messages}
                  SetErrorMode(SEM_FAILCRITICALERRORS );

 with Tform1.create(Self) do
  Try
	Form1.ShowModel;
  Finally 
	Free;
	SetErrorMode( wOldErrorMode ); {Return the OLD way that      
                                        Windows handle Error 
                                        Messages}
End;