Pascal 7 & Objects
Error (иногда переопределяется)
-----------------------------------------------------------------
procedure Error(Code, Info: Integer); virtual;
Вызывается, когда происходит ошибка потока. По умолчанию TStream.Error сохраняет Code и Info в полях Status и ErrorInfo, а затем, если глобальная переменная StreamError не равна nil, вызы- вает процедуру, на которую указывает StreamError. Если происходит ошибка, все операции с потоком приостанавливаются до вызова Reset.
См. также: TStream.Reset, переменную StreamError.
