После перенаправления потока вывода не настраивается фон и цвет текста

@MayaNash · Регистрация: 24.08.2011

Студворк — интернет-сервис помощи студентам

Pascal

   assign(output,'MITINGI.TXT'); rewrite(output);
   for i := 1 to n do
      spisok[i]^.Vyvod;
   close(output);
   assign(output,'con'); rewrite(output);
   textbackground(black);
   textcolor(lightgray);
   writeln('Tablitsa mitingov byla uspeshno zapisana v fail MITINGI.TXT!');
   readkey;

После выполнения данного фрагмента ранее установленный цвет фона и текста сбрасывается, и меняется на тот, что у моей консоли настроен. Повторной настройкой после возвращения output-а на консоль проблема не решается (см. приложения). Что делать?

@Puporev · 28.06.2014, 19:02

Pascal

1
2
3

textbackground(black);
textcolor(lightgray);
clrscr;

@MayaNash · 28.06.2014, 19:09 **[ТС]**

Puporev, не помогло

@MayaNash · 29.06.2014, 00:06 **[ТС]**

Решила не выпендриваться, и работать через обычный файл)) Хотя интересно узнать почему такое творится

@bormant · 09.03.2015, 21:55

AssignCrt(output) свяжет с потоком вывода функции вывода модуля Crt вместо файлового ввода/вывода. А они умеют выводить напрямую в видеопамять при DirectVideo=True или через INT 10h. В исходниках модуля Crt такое связывание делается в секции инициализации модуля, выполняемой до того, как получит управление основная программа:

Pascal

unit crt;
...
initialization
AssignCrt(output);
end.

@MayaNash · 10.03.2015, 20:14 **[ТС]**

Ааааааааа не очень поняла, ну ладно))

@bormant · 11.03.2015, 00:05

Керра,
что тут понимать-то?

Изначально процедуры вывода для output назначены вызовом AssignCrt(output), который включен в раздел инициализации модуля Crt и выполняется до передачи управления телу программы от её "begin". Эти процедуры учитывают значения WindMin, WindMax (задаются вызовом Window), DirectVideo и TextAttr из модуля Crt.

Позже вы сделали Assign(output,'con'); Rewrite(output), для вывода были назначены файловые процедуры, которые все это хозяйство не учитывают. Если нужно было восстановить прежнее поведение, нужно было вместо того позвать AssignCrt(output); Rewrite(output).

Pascal

5	assigncrt(output); rewrite(output);

Реализована эта кухня благодаря тому, что вызовы Reset, Rewrite, Append зовут функцию открытия, адрес которой уже записан в текстовой файловой переменной (вызовом Assign или аналогичным), а функция открытия прописывает внутри текстовой файловой переменной адреса функций ввода/вывода, которые затем будут вызываться для реального выполнения чтения/записи при вызовах Read[Ln]/Write[Ln].

Надеюсь, так несколько понятнее...

Добавлено через 5 минут
PS. "Внутреннее устройство" переменной типа Text см. http://www.freepascal.org/docs... xtrec.html
InOutFunc -- адрес функции, осуществляющей вывод данных буфера на устройство.
Про AssignCrt см. http://www.freepascal.org/docs... gncrt.html

Добавлено через 2 минуты
PPS. Если модуль Crt не используется, то output связан с stdout и вывод осуществляется обычными файловыми функциями.

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	28.06.2014, 19:09 [ТС]	3
	Puporev, не помогло Миниатюры 0

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	29.06.2014, 00:06 [ТС]	4
	Решила не выпендриваться, и работать через обычный файл)) Хотя интересно узнать почему такое творится 0

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	10.03.2015, 20:14 [ТС]	6
	Ааааааааа не очень поняла, ну ладно)) 0

	11.03.2015, 00:05

Опции темы