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