Clear;
Метод Clear осуществляет очистку списка ограничений таблицы.
Sub UserProc;
Var
MB: IMetabase;
Object: IMetabaseObject;
Table: ITable;
Checks: ITableChecks;
Begin
MB:=MetabaseClass.Active;
Object:=MB.ItemById("TABLE_1").Edit;
Table:=Object As ITable;
Checks:=Table.Checks;
Checks.Clear;
Object.Save;
End Sub UserProc;
После выполнения примера будут удалены все ограничения таблицы. Идентификатор таблицы - «Table_1».
См.также: