Visibility Scope

A visibility scope of a code element determines whether it can be used, that is, whether another code is allowed to read this element and record data to it. A visibility scope depends not only on the method of element declaration but also on the access level of an element container. To specify a visibility scope, use reserved words, that is, access modifiers. Below is given a comparison of access modifiers available in the Fore language.

Access modifier Description Elements that can be declared using this modifier Declaration context where a modifier can be used
Public A modifier indicates whether an element is available anywhere in the code in the current unit, in all units of an assembly and in the units, for which the current unit is connected via a reference.

Classes, interfaces, delegates, constants, variables, procedures and functions, properties, enumerations, events

class, namespace, interface
Private An access modifier indicates element availability only within its declaration context. This modifier is used to completely hide the details of internal implementation of various structures.

Classes, interfaces, delegates, constants, variables, procedures and functions, properties, enumerations, events

class, namespace, interface
Protected An access modifier indicates element availability within a class and in all classes derived from it.

Constants, variables, procedures and functions, properties, events

class, interface
Friend An access modifier indicates whether the element is available anywhere in the code of the current unit and in all units of the current assembly.
Elements with the Friend modifier are not available in external assemblies.

Constants, variables, procedures and functions, properties, events

class, interface
Protected Friend Access modifiers used together indicate that the elements can be addressed from any unit of the current assembly, and from a derived class located in unit of another assembly.

Constants, variables, procedures and functions, properties, events

class, interface

Example

Executing the example requires the following:

  1. Create a new assembly.

  2. Create a new unit and a form in the assembly.

  3. Locate the Button component named Button1 and the EditBox component named EditBox1 on the form. Create the OnClick event handler for the button.

  4. Specify the following code in the unit and in the event handler:

Class TestObject: Object
    
Private s: String;
    
//The Name property
    Friend Property Name: String
        
Get
        
Begin
            
Return s;
        
End Get
        
Set
        
Begin
            s := Value;
        
End Set
    
End Property Name;
    
//Check specified name
    Friend Function TestName: Integer;
    
Begin
        
If s = "" Then
            
Return - 1
        
Else
            
Return TestStructure;
    
End If;
    
End Function TestName;
    
//Function for searching for duplicate characters in name
    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;

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(
"Name is not specified");
    
Elseif i = 0 Then
        WinApplication.InformationBox(
"Name contains duplicate characters");
    
Elseif i = 1 Then
        WinApplication.InformationBox(
"Name is correct");
    
End If;
End Sub Button1OnClick;

After a form has been started, clicking the button creates a new object of the TestObject custom class. The Name property is defined for the object. This property is implemented in the TestObject class and can be read and recorded in any unit of the current assembly. The text entered in the EditBox1 component is set as the value of the Name property. The name value is stored in the "s" variable. The "s" variable is available only in the TestObject class.

After the value has been defined, the name is checked. To check the name, the TestName function is called, which is also available in any unit of the current assembly. If the specified name is not empty, the additional TestStructure function is called from the TestName function. The TestStructure function checks the name for duplicate English characters. This function is available in the TestObject class as well as in all classes derived from it.

After the name has been checked, the appropriate message stating that it is correct is displayed.

See also:

Fore Language Guide | Procedures and Functions | Classes and Objects | Interfaces | Enumerations