FindByKey(RubricatorKey: Integer): IRubricatorInstance;
Метод FindByKey возвращает базу из коллекции по её ключу.
Если база данных временных рядов с заданным ключом отсутствует в коллекции, то метод возвращает значение Null.
Для выполнения примера предполагается наличие формы, на которой расположены компонент LanerBox и компонент UiErAnalyzer с идентификатором «UiErAnalyzer1», являющегося источником данных для LanerBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов в рядном режиме.
Добавьте ссылки на системные сборки «Cubes» и «Metabase».
Sub FindRub;
Var
Laner: ILaner;
RubList: IRubricatorInstanceList;
mb: IMetabase;
key: Integer;
RubrInst: IRubricatorInstance;
Begin
Laner := UiErAnalyzer1.ErAnalyzer.Laner;
RubList := Laner.UsedRubricators;
mb := MetabaseClass.Active;
key := mb.GetObjectKeyById("FC_COMM");
RubrInst := RubList.FindByKey(key);
If RubrInst <> Null Then
Debug.WriteLine("Является источником данных");
Else
Debug.WriteLine("Не является источником данных");
End If;
End Sub FindRub;
После выполнения примера будет определено: является ли база данных временных рядов с идентификатором «FC_COMM» источником данных для рядов в загруженной рабочей книге. Результат будет выведен в окно консоли.
См. также: