Правила форума
Flush.PASЯзык:
Русский
English
{ Пример программы для процедуры Flush }
uses Dos, Crt;
procedure ReportError(S : String);
{ Перенаправляет вывод на стандартный обработчик
ошибок DOS, затем выводит сообщение об ошибке и
прекращает выполнение программы. Файл "output"
должен быть полность записан на диск, перед
изменением его дескриптора, иначе прежний вывод
может появиться на экране наряду с сообщением
об ошибке }
begin
Flush(Output); { Очищаем буфер файла }
{ Переназначаем вывод на стандартный обработчик ошибок }
TTextRec(Output).Handle := 2;
WriteLn(S);
Halt(1);
end;
begin
ReportError('Произошла ошибка!');
end.
procedure ReportError(S : String);
{ Перенаправляет вывод на стандартный обработчик
ошибок DOS, затем выводит сообщение об ошибке и
прекращает выполнение программы. Файл "output"
должен быть полность записан на диск, перед
изменением его дескриптора, иначе прежний вывод
может появиться на экране наряду с сообщением
об ошибке }
begin
Flush(Output); { Очищаем буфер файла }
{ Переназначаем вывод на стандартный обработчик ошибок }
TTextRec(Output).Handle := 2;
WriteLn(S);
Halt(1);
end;
begin
ReportError('Произошла ошибка!');
end.
::
::
::
