RunError

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 14:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Vytvorená stránka „Zastaví vykonávání programu. ;Deklarace procedure RunError [ ( Errorcode: Byte ) ]; ;Režim :Windows, Reálný, Chráněný ;Poznámky :Vygeneruje běhovou (run-...“)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Zastaví vykonávání programu.

Deklarace
procedure RunError [ ( Errorcode: Byte ) ];
Režim
Windows, Reálný, Chráněný
Poznámky
Vygeneruje běhovou (run-time) chybu daného čísla na aktuálním příkazu.
Viz také
Exit
Halt
Hlášení běhových chyb


Vzorový příklad 

{Runerror.PAS}
{Vzorový příklad pro proceduru RunError.}
begin
{$IFDEF Debug}
  if P = nil then
    RunError(204);
{$ENDIF}
end.
Citováno z „https://trsek.com/pascal/index.php?title=RunError&oldid=1158“