flush.pas

 {Flush.PAS}
 
 { Пример программы для процедуры Flush }
 
 Uses WinDos, WinCrt;
 
 Procedure ReportError(S : String);
 { Перенаправляет вывод на стандартный обработчик
   ошибок DOS, затем выводит сообщение об ошибке и
   прекращает выполнение программы. Файл "output"
   должен быть полность записан на диск, перед
   изменением его дескриптора, иначе прежний вывод
   может появиться на экране наряду с сообщением
   об ошибке }
 
 Begin
  Flush(Output); { Очищаем буфер файла }
  { Переназначаем вывод на стандартный обработчик ошибок }
  TTextRec(Output).Handle:=2;
  WriteLn(S);
  Halt(1);
 End;
 
 Begin
  ReportError('Произошла ошибка!');
 End.