IsObsolete: Boolean;
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 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("Name: " + Cl.Name + "; Outdated: " + Cl.IsOutdated.ToString);
End For;
End Sub Main;
After executing this example the classes names list of repository object and messages whether these classes are outdated are displayed into console.
This example is an entry point for any .NET assembly.
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("Name: " + Cl.Name + "; Outdated: " + Cl.IsOutdated.ToString());
End For;
End Sub;
After executing this example the classes names list of repository object and messages whether these classes are outdated are displayed into console.
See also: