IForeObject.Debug

Копировать пример

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;