Item(Index: Integer): ITableCheck;
Index — индекс ограничения.
Свойство Item возвращает объект, содержащий ограничение таблицы.
Sub UserProc;
Var
MB: IMetabase;
Table: ITable;
Checks: ITableChecks;
Check: ITableCheck;
s: String;
Begin
MB:=MetabaseClass.Active;
Table:=MB.ItemById("TABLE_1").Bind As ITable;
Checks:=Table.Checks;
Check:=Checks.Item(0);
s:=Check.Id;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться идентификатор первого ограничения таблицы. Идентификатор таблицы - «Table_1».
См.также: