Count: Integer;
The Count property returns quantity of table constraints.
Sub Main;
Var
MB: IMetabase;
Table: ITable;
Checks: ITableChecks;
i: Integer;
Begin
MB:=MetabaseClass.Active;
Table:=MB.ItemById("TABLE_1").Bind As ITable;
Checks:=Table.Checks;
i:=Checks.Count;
End Sub Main;
After executing the example, the "i" variable contains the quantity of restrictions of the table with the Table_1 identifier.
See also: