Как вывести данные в поток STDERR из программы на Turbo Pascal 7.0/7.1?

Question

1010101001000100110100111 @1010101001000100110100111

Pascal
DOS

Как вывести данные в поток STDERR из программы на Turbo Pascal 7.0/7.1?

В Турбо Паскале, программе доступно два стандартных потока: <STDIN> в перемнной типа text Input и <STDOUT> в Output.

Пожалуйста, подскажите, как штатными средствами языка (можно даже с костылями, например, ассемблерными вставками, прерываниями, вызовами функций DOS и BIOS) открыть для записи поток ошибок <STDERR>.

Вопрос задан более трёх лет назад
4341 просмотр

2 комментария

Подписаться 2 Оценить 2 комментария

1010101001000100110100111 @1010101001000100110100111 Автор вопроса
В идеале, хотелось бы в итоге получить инициализированную переменную
var Error: text;
связанную с нужным системным дескриптором.
Написано более трёх лет назад
1010101001000100110100111 @1010101001000100110100111 Автор вопроса
Кстати, в Delphi / Object Pascal, уже есть то, что я ищу
var ErrOutput: Text; { Standard error output }
Но, мне нужно, именно в Турбо Паскале чтоб работало.
Написано более трёх лет назад

В идеале, хотелось бы в итоге получить инициализированную переменную
var Error: text;
связанную с нужным системным дескриптором.
Кстати, в Delphi / Object Pascal, уже есть то, что я ищу
var ErrOutput: Text; { Standard error output }
Но, мне нужно, именно в Турбо Паскале чтоб работало.

Answer 1 · 2013-04-10 01:46:16

Турбо-паскаль давно не брал в руки, лет 15 :)

Попробуйте что-то вроде такого:

program Demo;
uses
  Dos;
var
  StdErr: Text;
begin
  Assign(StdErr, '');
  Rewrite(StdErr);
  TextRec(StdErr).Handle:=2;

  Writeln('Standard output');
  Writeln(StdErr, 'Standard error');

  Close(StdErr);
end.

Ну и в unit, если заработает

Как вывести данные в поток STDERR из программы на Turbo Pascal 7.0/7.1?

Войдите на сайт