Область видимости

Область видимости элемента кода определяет возможность его использования, то есть разрешение другому коду читать этот элемент и записывать в него данные. Область видимости определяется не только способом объявления элемента, но и уровнем доступа контейнера элемента. Для указания области видимости используются зарезервированные слова - модификаторы доступа. Ниже представлено сравнение, доступных в языке Fore, модификаторов доступа.

Модификатор доступа	Описание	Элементы, которые можно объявить с данным модификатором	Контекст объявления, в котором можно использовать модификатор
Public	Модификатор указывает на доступность элемента в любом месте кода текущего модуля, во всех модулях сборки, а также в модулях, для которых текущий модуль подключен по ссылке.	классы, интерфейсы, делегаты, константы, переменные, процедуры и функции, свойства, перечисления, события	класс, пространство имен, интерфейс
Private	Модификатор доступа указывает на доступность элемента только в контексте его объявления. Данный модификатор позволяет полностью скрыть детали внутренней реализации различных структур.	классы, интерфейсы, делегаты, константы, переменные, процедуры и функции, свойства, перечисления, события	класс, пространство имен, интерфейс
Protected	Модификатор доступа указывает на доступность элемента внутри класса, а также во всех классах, производных от данного.	константы, переменные, процедуры и функции, свойства, события	класс, интерфейс
Friend	Модификатор доступа указывает на доступность элемента в любом месте кода текущего модуля, а также во всех модулях текущей сборки. Элементы с модификатором Friend будут недоступны во внешних сборках.	константы, переменные, процедуры и функции, свойства, события	класс, интерфейс
Protected Friend	Модификаторы доступа, используемые вместе, указывают, что к элементам можно обратиться из любого модуля текущей сборки, а также из класса, производного от данного, но находящегося в модуле другой сборки.	константы, переменные, процедуры и функции, свойства, события	класс, интерфейс

Пример

Для выполнения примера необходимо выполнить следующее:

Создать новую сборку.
В сборке создать новый модуль и форму.
На форме разместить компоненты Button и EditBox с наименованиями "Button1" и "EditBox1" соответственно. Для кнопки создать обработчик события OnClick.
В модуле и обработчике события указать следующий код:

текст модуля:

Class TestObject: Object
    Private s: String;
    //Свойство Name
    Friend Property Name: String
        Get
        Begin
            Return s;
        End Get
        Set
        Begin
            s := Value;
        End Set
    End Property Name;
    //Проверка установленного наименования
    Friend Function TestName: Integer;
    Begin
        If s = "" Then
            Return - 1
        Else
            Return TestStructure;
    End If;
    End Function TestName;
    //Функция для поиска в наименовании двойных символов
    Protected Function TestStructure: Integer;
    Var
        i: Integer;
    Begin
        For i := 65 To 122 Do
            If s.IndexOf(Char.Chr(i) + Char.Chr(i)) <> -1 Then
                Break;
            End If;
        End For;
        If i <> 123 Then
            Return 0;
        Else
            Return 1;
        End If;
    End Function TestStructure;
End Class TestObject;

событие OnClick:

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Obj: TestObject;
    i: Integer;
Begin
    Obj := New TestObject.Create;
    Obj.Name := EditBox1.Text;
    i := Obj.TestName;
    If i = -1 Then
        WinApplication.InformationBox("Наименование не установлено");
    Elseif i = 0 Then
        WinApplication.InformationBox("Наименование содержит дублирующиеся символы");
    Elseif i = 1 Then
        WinApplication.InformationBox("Наименование корректно");
    End If;
End Sub Button1OnClick;

После запуска формы при нажатии на кнопку будет создан новый объект пользовательского класса TestObject. Для объекта будет установлено свойство Name. Данное свойство реализовано в классе TestObject и доступно на чтение и запись в любом модуле текущей сборки. В качестве значения свойства Name будет установлен текст, введенный в компонент «EditBox1». Само значение наименования будет храниться в переменной «s». Переменная «s» доступна только в классе TestObject.

После установки будет осуществлена проверка наименования. Для проверки будет вызвана функция TestName, также доступная в любом модуле текущей сборки. Если установленное наименование не пустое, то из функции TestName будет вызвана дополнительная функция TestStructure. Функция TestStructure осуществляет проверку наименования на наличие дублирующихся символов английского языка. Данная функция будет доступна внутри класса TestObject, а также во всех классах, производных от него.

После проверки наименования будет выдано соответствующее сообщение о его корректности.

См. также:

Руководство по языку Fore | Процедуры и функции | Классы и объекты | Интерфейсы | Перечисления