IDbClass.IsObsolete

Синтаксис Fore

IsObsolete: Boolean;

Синтаксис Fore.NET

IsObsolete : Boolean;

Описание

Свойство IsObsolete возвращает признак того, является ли класс устаревшим.

Пример Fore

Для выполнения примера подключите ссылку на системную сборку Metabase.

Sub Main;
Var
    Man: IMetabase;
    Classes: IDbClasses;
    Cl: IDbClass;
    i: Integer;
Begin
    Man := MetabaseManagerFactory.Active;
    Classes := Man.Classes;
    For i := 0 To Classes.Count - 1 Do
        Cl := Classes.Item(i);
        Debug.WriteLine("Наименование: " + Cl.Name + "; Устарел: " + Cl.IsObsolete.ToString);
    End For;
End Sub Main;

После выполнения примера в консоль будет выведен список наименований классов объектов репозитория и сообщения о том, являются ли эти классы устаревшими.

Пример Fore.NET

Указанный пример является точкой входа для какой-либо .NET-сборки.

Public Shared Sub Main(Params : StartParams);
Var
        Man: IMetabase;
        Classes: IDbClasses;
        Cl: IDbClass;
        i: Integer;
Begin
        Man := Params.Metabase;
        Classes := Man.Classes;
        For i := 0 To Classes.Count - 1 Do
        Cl := Classes.Item[i];
        System.Diagnostics.Debug.WriteLine("Наименование: " + Cl.Name + "; Устарел: " + Cl.IsObsolete.ToString());
        End For;
End Sub;

См. также: