Count: Integer;
Свойство Count возвращает количество ограничений таблицы.
Sub UserProc;
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 UserProc;
После выполнения примера в переменной «i» будет содержаться количество ограничений таблицы с идентификатором «Table_1».
См.также: