Status: Integer;
Свойство Status возвращает код ошибки. Если ошибки не было возвращает «0».
Sub UserProc;
Var
a: Double;
Result: Integer;
Begin
a := Math.Sqrt(-10);
Result := Math.Status;
End Sub UserProc;
В результате выполнения примера в переменной «Result» будет находиться код ошибки «7».
См. также: