AddExitProc/de
From Lazarus wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
AddExitProc
Mit AddExitProc, kann man eine Procedure zuweisen, welche bei Programm-Ende aufgerufen wird.
Auch bei Beendigungen durch eine Laufzeitfehler.
Gegenüber dem einfachen ExitProc hat diesen den Vorteil, das man sich nicht um das sichern und wieder aufrufen der alten ExitProc kümmern muss, dies geschieht mit AddExitProc automatisch im Hintergrund.
Beispiel
In diesem Beispiel, wird bewusst eine Datei geöffnet, welche es nicht gibt.
program AddExitProc_Example;
const
MyExitCode = 123;
procedure Ende;
begin
WriteLn('Das ist das Ende');
case ExitCode of
2: begin
WriteLn('Datei nicht gefunden');
end;
MyExitCode: begin
WriteLn('Es wurde bewusst mit ', MyExitCode, ' abgebrochen');
end;
else begin
WriteLn('Fehler: ', ExitCode);
end;
end;
end;
var
f: file;
begin
// Neue ExitProc zuweisen.
AddExitProc(@Ende);
// Eine Datei öffnen, welche es nicht gibt.
Assign(f, 'abc.txt');
// Dies löst einen Laufzeitfehler 2 aus.
Reset(f);
// Mit eigenem Code abbrechen.
Halt(MyExitCode);
end.
Siehe auch
- ExitProc und ExitCode - Programm-Ende abfangen und ExitCode auswerten.
Autor: Mathias