IsObsolete: Boolean;
The IsObsolete property returns whether the class is outdated.
If the class is outdated, the True value is returned, otherwise - False.
To execute the example, add a link to the Metabase system assembly.
Sub UserProc;
Var
Man: IMetabaseManager;
Classes: IDbClasses;
Cls: IDbClass;
i, c: Integer;
Begin
Man := MetabaseManagerFactory.Active;
Classes := Man.Classes;
c := Classes.Count;
For i := 0 To c - 1 Do
Cls := Classes.Item(i);
Debug.WriteLine("Name: " + Cls.Name + "; Outdated: " + Cls.IsObsolete.ToString);
End For;
End Sub UserProc;
After executing the example the development environment console displays a list of classes names of repository objects and messages whether these classes are outdated.
See also: