RunError

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 17:49, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit System)
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.