Turbo Vision и ошибка 'Unknown identifier'

@Илья Остапишен · Регистрация: 26.02.2011

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

Недавно я начал изучать Turbo Vision. Дошел до StatusLine, пишу код:

Pascal

uses App, Objects, Drivers, Menus
Type
TMyApp = object(TApplication)
procedure InitStatusLine; virtual;
end;
var MyApp:TMyApp
 
procedure TMyApp.InitStatusLine;
var R:TRect;
begin
GetExtent(R);
R.A.Y:=R.B.Y-1
New(StatusLine,Init,(R,
NewStatusDef(0,$FFFF,NewStatusKey('~Alt-X~ Exit',kbAltX,cmQuit,(*)Ошибка Unknown identifier(*)
StdStatusKeys(nil))),nil)));
end;
BEGIN
MyApp.init;
MyApp.run
MyApp.done;
END.

Там где я написал комментарий "Ошибка Unkonown identifier" Турбо Паскаль показывает ошибку 'Unknown identifier'

@SAMZ · 23.07.2011, 13:37

Сообщение от Илья Остапишен

Недавно я начал изучать Turbo Vision

Извините, что не по существу вашего вопроса. С чем связано изучение турбовизий. Расцвет их применения - это начало 90-х годов. Когда-то много проектов делал и использованием этой библиотеки и вспоминаю эти объекты с большой теплотой, но сейчас они для чего?

@Puporev · 23.07.2011, 13:59

Pascal

1	New(StatusLine,Init,(R,

после Init запятую уберите.
Этот пример есть у Фаронова
http://primat.at.ua/load/15-1-0-105
страница 390.

@Илья Остапишен · 23.07.2011, 17:29 **[ТС]**

SAMZ, я изучаю библиотеку Turbo Vision для того чтобы писать программы на Free Vision. Free Vision это Free Pascal'евский Turbo Vision. Как я знаю Free Pascal делает программы для Win32.

Сообщение от Puporev

после Init запятую уберите.

Это опечатка, в коде программы у меня такого нет.

Паскаль показывает ошибку на строке 14

@Puporev · 23.07.2011, 17:47

Посмотри здесь, код немного не такой.
http://demon-riabev.by.ru/Prog... l15_2.html

Добавлено через 39 секунд
У меня нет этой фиговины, проверить не могу.

Добавлено через 3 минуты
Вообще эту страницу полистай..
http://www.google.ru/#q=%D0%BF... 24&bih=653

@Илья Остапишен · 23.07.2011, 17:54 **[ТС]**

Puporev, работает!
буду разбираться почему тот код не работает

нужно было добавить модель Views в Uses;

@Puporev · 23.07.2011, 18:28

Сообщение от Илья Остапишен

нужно было добавить модель Views в Uses;

Так я же тебе ссылку дал, там этот модуль подключен...

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,255
	23.07.2011, 13:37	2
	Сообщение от Илья Остапишен Недавно я начал изучать Turbo Vision Извините, что не по существу вашего вопроса. С чем связано изучение турбовизий. Расцвет их применения - это начало 90-х годов. Когда-то много проектов делал и использованием этой библиотеки и вспоминаю эти объекты с большой теплотой, но сейчас они для чего? 0

@Илья Остапишен 10 / 10 / 1 Регистрация: 26.02.2011 Сообщений: 112
	23.07.2011, 17:29 [ТС]	4
	SAMZ, я изучаю библиотеку Turbo Vision для того чтобы писать программы на Free Vision. Free Vision это Free Pascal'евский Turbo Vision. Как я знаю Free Pascal делает программы для Win32. Сообщение от Puporev после Init запятую уберите. Это опечатка, в коде программы у меня такого нет. Паскаль показывает ошибку на строке 14 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	23.07.2011, 17:47	5
	Посмотри здесь, код немного не такой. http://demon-riabev.by.ru/Prog... l15_2.html Добавлено через 39 секунд У меня нет этой фиговины, проверить не могу. Добавлено через 3 минуты Вообще эту страницу полистай.. http://www.google.ru/#q=%D0%BF... 24&bih=653 1

@Илья Остапишен 10 / 10 / 1 Регистрация: 26.02.2011 Сообщений: 112
	23.07.2011, 17:54 [ТС]	6
	Puporev, работает! буду разбираться почему тот код не работает нужно было добавить модель Views в Uses; 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	23.07.2011, 18:28	7
	Сообщение от Илья Остапишен нужно было добавить модель Views в Uses; Так я же тебе ссылку дал, там этот модуль подключен... 0

Опции темы