Ограничение видимости переменной

[krab]

Нужно, чтобы переменная была видна только в двух юнитах, а в остальных - нет.
Обычно это делается так:

Код: Выделить всё

unit Unit1;
interface

implementation
var
  PrivateVar: TObj;

Хочу разбить большой юнит на два, и, соответственно, сделать доступной переменную и второму (вспомогательному) юниту. Но оставить переменную недоступной для других. Как это сделать?

[Mr.Smart]

Вынести код модулей в *.inc файлы.

[krab]

Вынести код модулей в *.inc файлы.

В чем отличие .inс от обычных модулей? И в том, и в том случае делается "uses File;".

[zub]

вынести определение переменной в третий юнит, который включить implementation uses первых двух?

[Mr.Smart]

Видимость переменной Вы ни как не ограничите. Если хотите разбить модуль то выход только включаемые файлы (inc).
п.с. Посмотрите исходники FCL/LCL там данный принцип хорошо проилюстрирован

Добавлено спустя 51 секунду:
Хотя можно сделать как советует zub

[krab]

вынести определение переменной в третий юнит, который включить implementation uses первых двух?

И этот третий получится полупустым.

Видимость переменной Вы ни как не ограничите. Если хотите разбить модуль то выход только включаемые файлы (inc).
п.с. Посмотрите исходники FCL/LCL там данный принцип хорошо проилюстрирован

Видимо, так и придется сделать.

Спасибо.

[zub]

>>И этот третий получится полупустым.
Что в этом плохого? Сейчас тоже столкнулся с проблемой разделения большого на помельче. ИМХО самый верный путь. *.inc - только видимость разделения