IForeObject.Debug

Синтаксис

Debug: Boolean;

Описание

Свойство Debug возвращает признак выполнения объекта среды разработки с отладкой.

Комментарии

Возможные значения:

Для получения подробной информации обратитесь к разделу «Запуск и отладка объектов среды разработки».

Пример

Для выполнения примера предполагается наличие в репозитории модуля с идентификатором MODULE. В модуле добавлен следующий код:

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;

Добавьте ссылку на системные сборки: Fore, Metabase.

Sub UserProc;
Var
    ForeService: IForeServices;
    Runtime: IForeRuntime;
    Assm: IForeAssembly;
    FClass: IForeClass;
    ClassInst: IForeObject;
Begin
    ForeService := MetabaseClass.Active As IForeServices;
    Runtime := ForeService.GetRuntime;
    // Загрузим модуль
    Assm := Runtime.BindToAssembly("MODULE");
    // Получим класс модуля
    FClass := Assm.BindToClass("A");
    // Создадим экземпляр класса
    ClassInst := FClass.CreateObject;
    // Выведем в консоль признак использования отладки при выполнении модуля
    If ClassInst.Debug = True Then
        Debug.WriteLine("Выполнено с отладкой");
    Else
        Debug.WriteLine("Выполнено без отладки");
    End If;
End Sub UserProc;

В результате выполнения примера в среду выполнения будет загружен указанный модуль. В консоль будет выведено сообщение о выполнении модуля с отладкой или без отладки.

См. также:

IForeObject