CLR.Window

@RJEKICH · Регистрация: 16.11.2017

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

При использовании Window, появляется такое сообщение: "Функция CRT.Window не реализована". В поиске решения нашел, что в PascalABC.NET\LibSource\CRT.pas процедура описана следующим образом:

Pascal

procedure Window(x, y, w, h: integer);
begin
  WriteLine('Функция CRT.Window не реализована');
  {Console.WindowLeft:=x;
  Console.WindowTop:=y;
  Console.WindowWidth:=w;
  Console.WindowHeight:=h;}
end;

Подумал, что поможет, убрал сообщение и фигурные скобки, снова пытаюсь запустить программу, но результат тот же.
В чем тогда может быть проблема?

@Puporev · 21.12.2018, 20:10

А что Вы хотите сделать?

@RJEKICH · 21.12.2018, 20:31 **[ТС]**

Если я использую Window, значит мне нужно сделать окно. Разве того, что я написал, недостаточно для понимания проблемы?

@Puporev · 21.12.2018, 20:34

Ну так подключите модуль CRT; Запуск по Shift+F9.

@RJEKICH · 21.12.2018, 20:37 **[ТС]**

А я надеялся, что "uses crt;" само собой разумеющееся

@Puporev · 21.12.2018, 20:40

Правда в АВС.net это не очень-то работает.

@RJEKICH · 21.12.2018, 20:49 **[ТС]**

А вы не знаете, что тогда работает? Или может мне нужно скачать другую версию паскаля? Я хочу задать размер текстового окна.

@Puporev · 21.12.2018, 20:52

window в Crt задает окно внутри окна, а не самостоятельное окно. Текстовое окно стандартное окно консоли.

@RJEKICH · 21.12.2018, 20:58 **[ТС]**

Ну да, я понимаю. Мне это и нужно. В общем, где тогда crt работает нормально, если в ABC.Net нет?

@Puporev · 21.12.2018, 20:59

Вот в простом АВС такой код

Pascal

uses crt;
begin
window(20,5,40,15);
textbackground(9);
textcolor(12);
clrscr;
write('Окно')
end.

создает окно, первая картинка, а в АВС.net не создает, вторя картинка

@RJEKICH · 21.12.2018, 21:04 **[ТС]**

Понятно, спасибо за наглядный пример. Значит сделаю по-другому.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2018, 20:10	2
	А что Вы хотите сделать? 0

@RJEKICH 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 22
	21.12.2018, 20:31 [ТС]	3
	Если я использую Window, значит мне нужно сделать окно. Разве того, что я написал, недостаточно для понимания проблемы? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2018, 20:34	4
	Ну так подключите модуль CRT; Запуск по Shift+F9. 0

@RJEKICH 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 22
	21.12.2018, 20:37 [ТС]	5
	А я надеялся, что "uses crt;" само собой разумеющееся 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2018, 20:40	6
	Правда в АВС.net это не очень-то работает. 0

@RJEKICH 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 22
	21.12.2018, 20:49 [ТС]	7
	А вы не знаете, что тогда работает? Или может мне нужно скачать другую версию паскаля? Я хочу задать размер текстового окна. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.12.2018, 20:52	8
	window в Crt задает окно внутри окна, а не самостоятельное окно. Текстовое окно стандартное окно консоли. 0

@RJEKICH 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 22
	21.12.2018, 20:58 [ТС]	9
	Ну да, я понимаю. Мне это и нужно. В общем, где тогда crt работает нормально, если в ABC.Net нет? 0

@RJEKICH 0 / 0 / 0 Регистрация: 16.11.2017 Сообщений: 22
	21.12.2018, 21:04 [ТС]	11
	Понятно, спасибо за наглядный пример. Значит сделаю по-другому. 0

CLR.Window

Решение