IForeObject.Debug

Syntax

Debug: Boolean;

Description

The Debug property returns whether a development environment object is executed with debugging.

Comments

Available values:

For details see the Running and Debugging Development Environment Objects section.

Example

Executing the example requires that the repository contains a unit with the MODULE identifier. The following code is added in the unit:

Class A: Object
    
Public a: Integer;
    
Public b: String;
End Class A;

Sub Test(obj: A);
Begin
    Debug.WriteLine(obj.a);
    Debug.WriteLine(obj.b);
End Sub Test;

Add links to the Fore, Metabase system assemblies.

Sub UserProc;
Var
    ForeService: IForeServices;
    Runtime: IForeRuntime;
    Assm: IForeAssembly;
    FClass: IForeClass;
    ClassInst: IForeObject;
Begin
    ForeService := MetabaseClass.Active 
As IForeServices;
    Runtime := ForeService.GetRuntime;
    
// Load unit
    Assm := Runtime.BindToAssembly("MODULE");
    
// Get unit class
    FClass := Assm.BindToClass("A");
    
// Create a class instance
    ClassInst := FClass.CreateObject;
    
// Display in the console whether unit is  executed with debugging
    If ClassInst.Debug = True Then
        Debug.WriteLine(
"Executed with debugging");
    
Else
        Debug.WriteLine(
"Executed without debugging");
    
End If;
End Sub UserProc;

After executing the example the specified unit is loaded to the development environment. The console displays the message about unit execution with or without debugging.

See also:

IForeObject