Использование переменной главной программы в unit

@X-TRACK · Регистрация: 05.11.2015

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

Есть главная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program main;
uses unit1;
var a : byte;
 
begin
a := 10;
for var i := 1 to 5 do 
 begin
  write(a);
  plus;
 end;
end.

Как видим, в ней описана переменная a : byte

Есть unit, в котором эта переменная должна использоваться

Pascal
1
2
3
4
5
6
7
8
unit unit1;
 
procedure plus;
begin
 a += 10;
end;
 
end.

Собственно вопрос: почему переменная, описанная в главной программе не может быть использована в unit? Ошибка при компиляции: Неизвестное имя 'a' (выделяет строку a += 10)

@JuriiMW · 26.07.2016, 10:47

Pascal
1
2
3
4
5
6
7
8
unit unit1;
 
procedure plus(var a : byte);
begin
 a += 10;
end;
 
end.

Следовательно:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program main;
uses unit1;
var a : byte;
 
begin
a := 10;
for var i := 1 to 5 do 
 begin
  write(a);
  plus(a);
 end;
end.

@Puporev · 26.07.2016, 10:49

Pascal
1
2
3
4
5
6
7
unit unit1;
procedure plus(var a:byte);
begin
 a += 10;
end;
 
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
program main;
uses unit1;
var a : byte;
begin
a := 10;
for var i := 1 to 5 do 
 begin
  write(a,' ');
  plus(a);
 end;
end.

@JuriiMW · 26.07.2016, 10:50

Описание переменной происходит после описания unit1.
Следовательно unit1 ни чего не знает о ней!

@X-TRACK · 26.07.2016, 11:02 **[ТС]**

Ок, а если вызываемая процедура - обработчик клавиш OnKeyDown := KeyDownMainMenu? То как тогда использовать переменную главной программы в этом обработчике, который хранится в unit?

@Puporev · 26.07.2016, 11:09

Сообщение от X-TRACK

переменную главной программы

Не понятно что ли что модуль главнее самой главной программы?
Переменную или нужно объявлять в модуле или передавать как параметр подпрограмм.

@volvo · 26.07.2016, 11:18

Сообщение от X-TRACK

как тогда использовать переменную главной программы в этом обработчике, который хранится в unit?

Никак. Это не предусмотрено возможностями языка, модули компилируются раньше, чем основная программа, и все то, что описано в в основной программе, для модулей недоступно, потому что неизвестно. Так что выходов у тебя всего два: либо описать переменную в модуле unit1, а не в основном блоке, либо сделать еще один модуль, там описать все "глобальные" переменные, и подключить его как к основной программе, так и к unit1.

@X-TRACK · 26.07.2016, 11:26 **[ТС]**

Решил описать переменную в unit, но после этого перестала вызываться OnKeyDown := KeyDownMainMenu. В чем проблема? Почему процедура не видит обработчик? Ошибка - Неизвестное имя 'KeyDownMainMenu'
Все происходит в одном unit:

Pascal
1
2
3
4
5
6
7
8
9
10
procedure MainMenuStartScreen;
begin
 UsedMenuPoint := false;
 repeat
  OnKeyDown := KeyDownMainMenu;
 until UsedMenuPoint = true;
end;
 
procedure KeyDownMainMenu(Key : integer);
...

@volvo · 26.07.2016, 13:57

Полностью юнит покажи, а не куски непонятные. Заголовок KeyDownMainMenu в секции Interface описан? Или сама KeyDownMainMenu должна быть описана ВЫШЕ по тексту, чем MainMenuStartScreen, а не НИЖЕ, как в выдранном тобой куске показано.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	26.07.2016, 10:50
	Описание переменной происходит после описания unit1. Следовательно unit1 ни чего не знает о ней! 0

@X-TRACK 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 54
	26.07.2016, 11:02 [ТС]
	Ок, а если вызываемая процедура - обработчик клавиш OnKeyDown := KeyDownMainMenu? То как тогда использовать переменную главной программы в этом обработчике, который хранится в unit? 0

@volvo Супер-модератор 33379 / 21503 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 11
	26.07.2016, 13:57
	Полностью юнит покажи, а не куски непонятные. Заголовок KeyDownMainMenu в секции Interface описан? Или сама KeyDownMainMenu должна быть описана ВЫШЕ по тексту, чем MainMenuStartScreen, а не НИЖЕ, как в выдранном тобой куске показано. 1