ExitProc/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# ExitProc
2	2
3	3		ExitProc, kann man eine Procedure zuweisen, welche bei Programm-Ende aufgerufen wird.\
4	4		Auch bei Beendigungen durch eine Laufzeitfehler.\
5		-	\
	5	+
6	6		Es wird empfohlen die alte ExitProc zu sichern, und dies bei der neuen ExitProc wieder aufzurufen.
7	7
8	8		## Beispiel
9	9
10	10		In diesem Beispiel, wird bewusst eine Datei geöffnet, welche es nicht gibt.
11	11
12	12		``` pascal
13	13		program ExitProc_Example;
14	14
15	15		const
16	16		MyExitCode = 123;
17	17
18	18		var
19	19		OldExitProc: Pointer;
20	20
21	21		procedure Ende;
22	22		begin
23	23		WriteLn('Das ist das Ende');
24	24		case ExitCode of
25	25		2: begin
26	26		WriteLn('Datei nicht gefunden');
27	27		end;
28	28		MyExitCode: begin
29	29		WriteLn('Es wurde bewusst mit ', MyExitCode, ' abgebrochen');
30	30		end;
31	31		else begin
32	32		WriteLn('Fehler: ', ExitCode);
33	33		end;
34	34		end;
35	35		ExitProc := OldExitProc;
36	36		end;
37	37
38	38		var
39	39		f: file;
40	40
41	41		begin
42	42		// Alte ExitProc sichern.
43	43		OldExitProc := ExitProc;
44	44
45	45		// Neue ExitProc zuweisen.
46	46		ExitProc := @Ende;
47	47
48	48		// Eine Datei öffnen, welche es nicht gibt.
49	49		Assign(f, 'abc.txt');
50	50
51	51		// Dies löst einen Laufzeitfehler 2 aus.
52	52		Reset(f);
53	53
54	54		// Mit eigenem Code abbrechen.
55	55		Halt(MyExitCode);
56	56
57	57		end.
58	58		```
59	59
60	60		# ExitCode
61	61
62	62		ExitCode gibt den Fehlercode an, mit welchen der Abbruch kommt. In der Regel, wen ExitCode 0 ist, wurde das Programm normal beendet.
63	63
64	64		## Durch Laufzeitfehler
65	65
66	66		ZB. bei einer Bereichsüberschreitung bekommt ExitCode 201.
67	67
68	68		``` pascal
69	69		var
70	70		a: array[0..3] of byte;
71	71
72	72		begin
73	73		OldExitProc := ExitProc;
74	74		ExitProc := @Ende;
75	75
76	76		// Bereich bewusst überschritten.
77	77		a[4] := 12;
78	78		```
79	79
80	80		## Mit erzwungenem Ende
81	81
82	82		Wen man ein Programm-Ende mit Halt() erzwingt, wird ExitProc trotzdem aufgerufen.\
83	83		Wen man Halt(num), dann wird num als ExitCode interpretiert. In diesem Beispiel hat dann der ExitCode 123.
84	84
85	85		``` pascal
86	86		Halt(123);
87	87		```
88	88
89	89		## Siehe auch
90	90
91	91		- [[AddExitProc/de\|AddExitProc]] - Programm-Ende in einer ExitProc-List zufügen.
92	92
93	93		Autor: Mathias
94	94
95	95		---
96	96		From the Free Pascal wiki, page "ExitProc/de", as it stood on 2020-05-19 after a change by FTurtle, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history