ClassId: Integer;
Свойство ClassId определяет класс объектов, которые будут проверяться в процессе поиска.
Для задания класса объектов необходимо использовать значения, содержащиеся в перечислимом типе MetabaseObjectClass, а также MetabaseObjectMetaClass.
По умолчанию свойству установлено значение "-1", при этом поиск осуществляется среди всех объектов репозитория.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
MDescs: IMetabaseObjectDescriptors;
MDesc: IMetabaseObjectDescriptor;
FInfo: IMetabaseObjectFindInfo;
Begin
MB := MetabaseClass.Active;
FInfo := MB.CreateFindInfo;
FInfo.ClassId := MetabaseObjectClass.KE_CLASS_STDCUBE;
FInfo.WholeWordsOnly := False;
MDescs := MB.Find(FInfo);
For Each MDesc In MDescs Do
Debug.WriteLine("Идентификатор: " + MDesc.Id + "; Наименование: " + MDesc.Name);
End For;
End Sub UserProc;
После выполнения примера будет осуществлен поиск всех стандартных кубов, имеющихся в репозитории. Наименования и идентификаторы найденных объектов будут выведены в консоль среды разработки.
См. также: